Есть подписанный ЭЦП драйвер 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 секунд после начала его работы (первого потока)?

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

При печати графического файла распечатывается только часть изображения. Подскажите, как вывести на печать все изображение?
Использовал такой код:

 using (var pd = new System.Drawing.Printing.PrintDocument())
            {
                               pd.PrintPage += (o, en) =>
                {
                    var img = System.Drawing.Image.FromFile(@"D:\Scan.jpg");

                    en.Graphics.DrawImage(img, new Point(100, 100));
                };
                pd.DefaultPageSettings.Landscape = true;
                pd.Print();

            }

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

Какие существуют аналоги WinAPI-шных функций FindFirstFile, CopyFile, DeleteFile в Qt?

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

Вопрос по использованию технологии OLE Automation. Есть интерфейс IWFBP, который непосредственно наследуется от IDispatch. Как я могу ссылку на этот интерфейс передать в стороннюю функцию, а в последующем использовать её? Допустим, у меня сейчас есть следующий код этой функции(пытаюсь использовать тип VARIANT):

void Func(VARIANT WFBL) {
   WFBL.Func1();
}

Здесь Func1 собственно функция интерфейса, WFBL — ссылка на него. Компилятор ругается, что он не видит Func1() в составе WFBL, причём ещё до компиляции. В чём может быть ошибка?

Пытался заменить VARIANT WFBL на IDispatch* WFBL, с последующим приведением переданного указателя к указателю на IWBP с помощью dynamic_cast. Предварительно импортировав библиотеку типов из нужной DLL. В этом случае компилятор уже видит Func1, но при написании чего-то вроде WFBL->Func1() во время выполнения вылезает ошибка Access violation с указанием на данную строку.

Буду признателен, если кто-то сможет помочь разобраться.

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

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

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