Конвертация AutoIT в DELPHI.

[Lime]

Доброго времени суток, есть псевдокод на AutoIT, хотелось бы преобразовать его на DELPHI.
Не совсем понимаю некоторые конструкции, а некоторые и вовсе непонимаю

 
Func GETGAMEBASEADDRESS($PID)

	$HSNAP = DllCall("Kernel32.dll", "HANDLE", "CreateToolhelp32Snapshot", "DWORD", 8, "DWORD", $PID)

	$STMODULE = DllStructCreate("DWORD dwSize;DWORD th32ModuleID;DWORD th32ProcessID;" & "DWORD GlblcntUsage;DWORD ProccntUsage;
ptr modBaseAddr;" & "DWORD modBaseSize;HANDLE hModule;WCHAR szModule[256];" & "WCHAR szExePath[260]")

	DllStructSetData($STMODULE, "dwSize", DllStructGetSize($STMODULE))

	$RET = DllCall("Kernel32.dll", "BOOLEAN", "Module32FirstW", "HANDLE", $HSNAP[0], "ptr", DllStructGetPtr($STMODULE))

	IF ($RET[0] = False) Then
		DllCall("Kernel32.dll", "BOOLEAN", "CloseHandle", "HANDLE", $HSNAP[0])
		Return 0
	Else
		$RET[0] = True
		Do
			If DllStructGetData($STMODULE, "szModule") = "GAME.exe" Then

				DllCall("Kernel32.dll", "BOOLEAN", "CloseHandle", "HANDLE", $HSNAP[0])

				Return DllStructGetData($STMODULE, "modBaseAddr")
			EndIf
			$RET = DllCall("Kernel32.dll", "BOOLEAN", "Module32NextW", "HANDLE", $HSNAP[0], "ptr", DllStructGetPtr($STMODULE))
		Until $RET[0] = False
	EndIf
EndFunc   ;==>GETGAMEBASEADDRESS

Мне бы получить тот самый адресс "BASE" структуры чтобы использовать его в ReadProcessMemory функции.

Как я понимаю:
создаётся "снимок процесса" с идентификатором PID
далее создаётся структура с описанием процесса (имя файла и прочие параметры)
далее заполняется пустыми значениями
далее функция Module32FirstW "что-то ищет ..."
если ничего не нашла закрывает
если нашла , в цикле ищет соответствие "szModule" = "GAME.exe" и возвращает значение "modBaseAddr"
until "не найден ещё один элемент"

Спасибо за отзывы!

[JTG]

Возвращает базовый адрес загрузки Game.exe.

Function GetModuleBase(PID: DWord; moduleName: PChar): dword;
var
   snapshot: THandle;
   modules: TModuleEntry32;
begin
  result := 0;
  snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, PID);
  modules.dwSize := sizeof(TModuleEntry32);
  if Module32First(snapshot, modules) then
  repeat
      if StrComp(moduleName, modules.szModule) = 0 then
      begin
        result := dword(modules.modBaseAddr);
        break;
      end;
  until not Module32Next(snapshot, modules);
  CloseHandle(snapshot);
end;

moduleName - имя исполняемого файла (без пути). Для game.exe вернёт базовый адрес загрузки экзешника, условно он всегда постоянный. Для some.dll - базовый адрес загрузки библиотеки внутри адресного пространства процесса. Этот адрес при каждом запуске может быть разным.

тот самый адресс "BASE" структуры

Это не адрес структуры. Это адрес где расположен первый байт исполняемого файла или библиотеки, загруженной им.

З.Ы.: в uses нужно добавить TlHelp32

[Lime]

Гиганское Вам спасибо за проделанную работу!)
Этот кусок очень смущал меня но теперь я почти полностью понял его назначение!

немного модифицировав на скорую руку

Function GetModuleBase(PID: DWord; moduleName: PChar): dword;
var
   snapshot: THandle;
   modules: TModuleEntry32;
begin
  result := 0;
  snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, PID);
  modules.dwSize := sizeof(TModuleEntry32);
  if Module32First(snapshot, modules) then
    While Module32Next(snapshot, modules) do
    if StrComp(moduleName, modules.szModule) = 0 then
      begin
       CloseHandle(snapshot);
       result := dword(modules.modBaseAddr);
       form1.Memo1.Lines.Add('--> ' + modules.szModule);
       exit;
      end
      else
     begin
        form1.Memo1.Lines.Add('[' + StrPas(modules.szModule)+'] - '+strpas(modules.szExePath) );
     end;
   CloseHandle(snapshot);
end;

PID и pchar('Game.exe') были указаны верно...
Я увидел в memo 89 имён загруженных DLL и ничего кроме имён DLL...

P.S. Почти все пути к dll были C:\WINDOWS\ ... , несколько - помошники мышки и звуковой карты (хуки какие-то) и всего 2 адреса указывающих на dll из папки игры. Может это то что мне нужно? это один из результатов на вопрос у гугла, так-же в описании длл: Windows Image Helper так-же имеет цифровую подпись от Microsoft ..
2рой - dll связанная с авторизационным сервером игры.
Что я делаю не так?(

[JTG]

Я там выше немного переписал цикл, иначе пропускало первый элемент списка. Вот вывод адресов всех модулей в АП процесса.

Function GetModuleBase(PID: DWord; moduleName: PChar): dword;
var
   snapshot: THandle;
   modules: TModuleEntry32;
begin
  result := 0;
  snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, PID);
  modules.dwSize := sizeof(TModuleEntry32);
  if Module32First(snapshot, modules) then
  repeat
{ 
      if StrComp(moduleName, modules.szModule) = 0 then
      begin
        result := dword(modules.modBaseAddr);
        break;
      end;
}
      form1.memo1.lines.add(format('%-50s %.8xh', [modules.szExePath, dword(modules.modBaseAddr)]));
  until not Module32Next(snapshot, modules);
  CloseHandle(snapshot);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  GetModuleBase(5580,'')
end;

Что я делаю не так?

А что сделать-то нужно?

[Lime]

И в правду, пропускался 1вый элемент но после корректировки всё работает.
Вывод результатов в memo я добавил для наглядности и понимания