Надо удалить в выделенной ячейке (может находится в любом месте листа) всё содержимое слева от конкретного символа (в примере #$#) и все справа от конкретного символа (в примере $#$).

(читать всё…)

как играя со строками

из ip адреса вывести последние цифры

s :=Copy(s, 1, Pos(‘.’, s));

скаежем ip Адрес у ПК 192.168.108.14

нужно вывести 108.14

или 11.14.105.15

то выводом 105.15

причем нужны оба варианта 105.15 и 10515

(читать всё…)

Как вставить с помощью ButtonClick символ диаметра в поле RichEdit. Не понимаю как сделать, чтобы Delphi 7 понимал Unicode. Объясните, пожалуйста….
У меня программа, в которой вводится текст в простой Edit. Нужно, с помощью кнопки Button вставлять символ диаметра в место, где находится курсор. Почитав я так понял что в простом Edit это нельзя сделать, т.к. не поддерживает символы из Unicode.

procedure TMainForm.diametr1Click(Sender: TObject);
var diam1: WideString;

begin

//diam1:=WideChar(#0216);
//diam1:=WideChar($00C18);
diam1:=WideChar($#2300);
//diam1:=WideChar(#$U+2300);

diam.SetSelTextBuf(PChar(diam1));

end;

(читать всё…)

Как поменять иконки все папок Windows 11 со стандартной желтой на свою?
По одной папке умею менять. Хочу поменять все и плюс новые когда будут создавать, чтобы с моей иконкой создавались.

(читать всё…)

Есть подписанный ЭЦП драйвер WinIo 3.0 для доступа к портам и мапинга физической памяти для 32/64-разрадяных Windows. Драйвер с открытым исходным кодом и является весьма популярным.

На Delphi 7 я воспроизвёл код установки драйвера в системе и обращение к нему через DeviceIoControl. Драйвер успешно зарегистрировался в Service Control Manager, запустился через StartService, успешно возвратил хэндл через CreateFile и даже смог считать и писать порты ввода-вывода, как под Windows 11 x64, так и Windows 7 32-bit.

Однако если попытаться замапить память через MapPhysToLin, то драйвер возвращает совсем не то, что нужно. Код мапинга очень простой и ошибки здесь нет:

type
  TtagPhysStruct = packed record
    dwPhysMemSizeInBytes : Int64; //Number of bytes to map
    pvPhysAddress : Int64;        //Physical address to be mapped
    PhysicalMemoryHandle : Int64; //Handle to a section returned by ZwOpenSection
    pvPhysMemLin : Int64;         //Pointer to a variable that receives the base address of the view
    pvPhysSection : Int64;
  end;

function MapPhysToLin(var PhysStruct: TtagPhysStruct) : Int64;
var
  dwBytesReturned : DWORD;
begin
  if not DeviceIoControl(hDriver,
                         IOCTL_WINIO_MAPPHYSTOLIN, //IOCTL 0x810
                         @PhysStruct,
                         SizeOf(TtagPhysStruct),
                         @PhysStruct,
                         SizeOf(TtagPhysStruct),
		         dwBytesReturned,nil)
    then Result:=0
      else Result:=PhysStruct.pvPhysMemLin;

Поэтому я решился попробовать замапить память через прилагаемую к драйверу библиотеку WinIo32.dll, которая экспортирует функцию GetPhysLong. Данная функция возвращает значение типа DWORD, записанное по определённому адресу в физической памяти.

var
  dllGetPhysLong: function (pbPhysAddr: PByte; out pdwPhysVal: PDWORD): Boolean; stdcall;
  dllInitializeWinIo: function : Boolean; stdcall;

procedure TForm1.Button2Click(Sender: TObject);
var
  hLibrary: THandle;
  hBuffer : PDWORD;
begin
  hBuffer:=0;
  hLibrary:=LoadLibrary('WinIo32.dll');
  if hLibrary > HINSTANCE_ERROR then
  begin
    @dllInitializeWinIo:=GetProcAddress(hLibrary, 'InitializeWinIo');
    @dllGetPhysLong:=GetProcAddress(hLibrary, 'GetPhysLong');
    if @dllInitializeWinIo <> nil then
      if dllInitializeWinIo then
        if @dllGetPhysLong <> nil then
        begin
          if dllGetPhysLong(Ptr($C0000),hBuffer) then
            ShowMessage(IntToHex(DWORD(hBuffer),8))
            else ShowMessage('Error '+IntToHex(GetLastError,8));;
        end;
    FreeLibrary(hLibrary);
  end;
end;

В коде выше я считываю 4 байта под адресу 0xC0000 (видеопамять). По этому адресу записано 0хE972AA55, которое успешно и возвращается при нажатии на кнопку. Но юзать DLL-ку мне не хочется. Хотелось бы воспроизвести все функции в своём коде самостоятельно.

Есть подозрение, что в С++ своя особенная упаковка структуры TtagPhysStruct:

#pragma pack(push)
#pragma pack(1)

struct tagPhysStruct
{
	DWORD64 dwPhysMemSizeInBytes;
	DWORD64 pvPhysAddress;
	DWORD64 PhysicalMemoryHandle;
	DWORD64 pvPhysMemLin;
	DWORD64 pvPhysSection;
};

#pragma pack(pop)

#endif

В общем, если кому-то уже ранее удалось портировать WinIo на Delphi, то я был бы рад любой помощи!

(читать всё…)

Ищу рабочие примеры с правильным использованием FindFirst, FindNext.

(читать всё…)

На моей мышке есть дополнительные две кнопки
Вопрос: как в D7 отловить их нажатие, чтобы использовать в своей программе?

(читать всё…)

Посмотрел курсы программистов. В одном из курсов написано, что продолжительность курса — 40 академических часов. Что-то мне подсказывает, что за 40 часов вряд ли можно серьезно погрузиться в тему. Или я ошибаюсь? И там действительно можно получить что-то полезное.

(читать всё…)

Прошерстил много подобных задач но везде ищут дубликаты и удаляют, оставляя при этом одну строку. Мне же в моей задаче нужно находить дубликаты (полностью идентичные строки в которых все значения во всех столбцах совпадают) и удалять и исходную строку и дублера. Оставив только уникальные строки у которых изначально во всем диапазоне не было дубликатов.

(читать всё…)

Как в powershell создать процесс, а в нем два потока? Первый поток вызывает утилиту на компе, второй убивает первый поток спустя 20 секунд после начала его работы (первого потока)?

(читать всё…)