مشکل در کد processid

[amir_633]

توی کد زیر برنامه به ;lt& که میرسه error میده ,علت چیه؟



function FindExecutableProcessID(const ExeName: String): DWORD;
var
Snapshot: THandle;
ProcessEntry32: TPROCESSENTRY32;
begin
Result := 0;
Snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
try
if Snapshot <> 0 then
begin
ProcessEntry32.dwSize := SizeOf(TPROCESSENTRY32);
if Process32First(Snapshot, ProcessEntry32) then
repeat
if CompareText(ExeName, ExtractFileName(ProcessEntry32.szExeFile)) = 0 then
Result := ProcessEntry32.th32ProcessID;
until (Result <> 0) or not Process32Next(Snapshot, ProcessEntry32);
end;
finally
CloseHandle(Snapshot);
end;
end;

[B_YAGHOBI]

احتمالا از يك سايتي كپي كردي چند تا Tag روش مونده.

كد درست :


function FindExecutableProcessID(const ExeName: String): DWORD;
var
Snapshot: THandle;
ProcessEntry32: TPROCESSENTRY32;
begin
Result := 0;
Snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
try
if Snapshot > 0 then
begin
ProcessEntry32.dwSize := SizeOf(TPROCESSENTRY32);
if Process32First(Snapshot, ProcessEntry32) then
repeat
if CompareText(ExeName, ExtractFileName(ProcessEntry32.szExeFile)) = 0 then
Result := ProcessEntry32.th32ProcessID;
until (Result > 0) or not Process32Next(Snapshot, ProcessEntry32);
end;
finally
CloseHandle(Snapshot);
end;
end;