السلام عليكم
بالتوفيق,,
كود :
Uses
Tlhelp32;
Function Run:Boolean;
Var
Handle: THandle;
Struc: TProcessEntry32;
wMax: Byte;
Begin
Result:= False;wMax:= 0;
Handle:=CreateToolHelp32SnapShot($00000002, 0);
Struc.dwSize:=Sizeof(TProcessEntry32);
While Process32Next(Handle, Struc) Do
Begin
If Struc.szExeFile = ExtractFileName(ParamStr(0))Then
Inc(wMax);
If wMax >= 2 Then
Begin
Result:= True;
Exit;
End;
End;
End;
procedure TForm1.FormCreate(Sender: TObject);
begin
If Run Then
ExitProcess(GetLastError);
//RunError;
end;I'M Fly Like A G6