Erro getProcessId delphi

21/12/2015

Bom to tentando criar um programa no qual ele acessa as mem�rias. O problema � que n�o consigo passar da parte do c�digo em identificar o processo e abrir, acontece o seguinte erro no c�digo o qual ja procurei na net e n�o achei solu��o:

if (StrIComp(PChar(ExtractFileName(FProcessEntry32.sz  ExeFile)), PChar(ExeFileName)) = 0)  or (StrIComp(FProcessEntry32.szExeFile, PChar(ExeFileName)) = 0)  then begin

Aqui ele indica o seguinte:

(StrIComp(PChar(ExtractFileName(FProcessEntry32.sz  ExeFile))

Type of expression must to be boolean.

E aqui outro erro:

FProcessEntry32.szExeFile

Expected end, but received a identifier szExeFile.

E aqui est� todo o c�digo que estou tentando utilizar:

function GetProcessID(Const ExeFileName: string; var ProcessId: integer): boolean;
var

  ContinueLoop: BOOL;

  FSnapshotHandle: THandle;

  FProcessEntry32: TProcessEntry32;

begin

  result := false;

  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);

  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

  while integer(ContinueLoop) <> 0 do begin

	if (StrIComp(PChar(ExtractFileName(FProcessEntry32.sz  ExeFile)), PChar(ExeFileName)) = 0)

	   or (StrIComp(FProcessEntry32.szExeFile, PChar(ExeFileName)) = 0)  then begin

	   ProcessId:= FProcessEntry32.th32ProcessID;

	   result := true;

	   break;

	end;

	ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);

  end;

  CloseHandle(FSnapshotHandle);

end;

Se alguem tiver uma luz sobre como corrigir, agrade�o.

Gilberto

Curtir t�pico + 0

Responder