Mega Code Archive

 

Categories / Delphi / System

 

Hide the application from tasklist [ctrl+alt+del]

{ This example runs only under Windows 95/98 Dieses Beispiel läuft nur unter Windows 95/98 } implementation function RegisterServiceProcess(dwProcessID, dwType: DWORD): DWORD; stdcall; external 'KERNEL32.DLL'; // hide, verstecken procedure TForm1.Button1Click(Sender: TObject); begin RegisterServiceProcess(GetCurrentProcessID, 1); end; // show again, wieder anzeigen procedure TForm1.Button2Click(Sender: TObject); begin RegisterServiceProcess(GetCurrentProcessID, 0); end;