Delphi进程判断

program Project2;

uses
  windows , TLHelp32;

function FindProcess( AFileName : string) : boolean;
var
    hSnapshot : THandle;
    lppe : TProcessEntry32;
    Found : Boolean;
begin
    Result := False;
    hSnapshot := CreateToolhelp32Snapshot( TH32CS_SNAPPROCESS , 0);
    lppe . dwSize := SizeOf( TProcessEntry32);
    Found := Process32First( hSnapshot , lppe);
while Found do
begin
    if( lppe . szExeFile = AFileName) then Result := True;
    Found := Process32Next( hSnapshot , lppe);
end;
end;

begin
    if FindProcess( 'QQ.exe') then
    MessageBox( 0 , PChar( 'QQ存在') , PChar( '提示') , MB_OK);
end .