[Flop88]

Короче говоря мне нужно сделать так, чтоб призапуске процесса samp.exe, моя прога находила папку где находится этот файл(Папку с gta sa mp) и если есть в этой папке файл mod_sa.ini то закрывало процесс samp.exe, а если его нет - ничего не делала.
Знакомый написал, что нужно написать вот такую функцию

Код:

	
Alexandr
function GetProcessFilePath(FName: string): string;
var
hProcess, hModule: integer;
PE32: PROCESSENTRY32;
PM: MODULEENTRY32;
begin
hProcess:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); 
PE32.dwSize:=SizeOf(PROCESSENTRY32);
repeat
begin
hModule:=CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, PE32.th32ProcessID);
PM.dwSize:=(SizeOf(MODULEENTRY32));
repeat
if PM.szModule=FName then 
begin 
Result:=PM.szExePath;
CloseHandle(hModule); 
end; 
until not (Module32Next(hModule, PM)); 
end;
until not (Process32Next(hProcess, PE32)); 
CloseHandle(hProcess);
end;
20:18:36	
s:=GetProcessFilePath('samp.exe');
l:= Copy(s, 1, Length(s)-8);
где gta_sa.exe смени на самп
L:string
S тоже
вот тебе и папка gta в переменной L

Но при компиляции выдаёт ошибку. Сломал всю голову с этой шляпой. Вот решил обратиться к вам