G
function GetExePatchActiveWindow(ActiveWindowHandle:THandle):string;
var
pId:cardinal;
me32:MODULEENTRY32;
hsnap:THandle;
begin
Result:='';
GetWindowThreadProcessId(ActiveWindowHandle, pId);
hsnap:=CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, pId);
me32.dwSize:=sizeof(MODULEENTRY32);
if Module32First(hsnap, me32) then
Result:=string(me32.szExePath);
CloseHandle(hsnap);
end;
???Имеется в ввиду путь, где сеёчас находится пользователь.
Надо подключить unit TlHelp32компилятор не пропускает. Выдёт ошибку на me32:MODULEENTRY32;
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab