Thema: Delphi vcl-prog -> service

Einzelnen Beitrag anzeigen

Benutzerbild von Salomon
Salomon

Registriert seit: 9. Jun 2002
453 Beiträge
 
#9
  Alt 1. Feb 2003, 19:41
Hallo Jan,
um dein Programm zu verstecken muss du es nicht zwangsläufig als Services laufen lassen. Um das Haupfenster zu verstecken kannst du folgenden Code verwenden:
Code:
procedure TForm1.FormCreate(Sender: TObject);
var
  hwndOwner: HWnd;
begin
  hwndOwner := GetWindow(Handle, GW_OWNER);
  ShowWindow(hwndOwner, SW_HIDE);
  ShowWindowAsync(hwndOwner, SW_HIDE);
  ShowWindowAsync(Self.Handle, SW_HIDE);
end;
Falls du WinXP verwendest, ist dein Programm im Taskmanager nur noch unter Prozesse sichtbar, und wird nicht bei den ANwendungen aufgeführt.

Mfg
01001000 01100001 01101100 01101100 01101111
01010111 01100101 01101100 01110100 00100001

http://www.it-adviser.net
  Mit Zitat antworten Zitat