Tips (1541)

Tip Bewertung (3):

{
  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;