"Program" versteckt ausführen

[borstenei]

oder so

Delphi-Quellcode:

var owner:thandle;
begin
Owner := GetWindow(handle, GW_OWNER);
ShowWindow(owner, SW_HIDE);
self.hide;
end;

[Delphi-Laie]

Das ist dann doch aber nicht vor dem Taskmanager, Prozeßeplorer & Co. versteckt?!

Derlei Systemüberwachungsprogramme werden von mir und wohl auch von vielen anderen tagtäglich benutzt. Da nützt formular- oder konsolenfensterlosigkeit kein bißchen.

[Luckie]

Warum muss es überhaupt versteckt sein?

[DeddyH]

Wenn ich ein Programm schreibe, das ohne jegliche Interaktion auskommt, dann erstelle ich (allerdings unter Delphi) eine neue Konsolenanwendung und lösche einfach die Compilerdirektrive {$APPTYPE CONSOLE}.

[kuba]

Hi,

angehängtes Programmbeispiel verschwindet unmittelbat nach Programmstart und ist per ALT+TAB nicht mehr in den Vordergrund zu bekommen.

Beenden nur über Taskmanager möglich.

kuba

PS: sorry falsche Kategorie ... Delphi, nicht FP...

[Christian Seehase]

Zitat von Luckie:

Warum muss es überhaupt versteckt sein?

Das kann durchaus mal ganz nützlich sein, wenn man beim Login Daten vom Rechner einsammeln muss.
Speziell, wenn dieser Vorgang etwas länger dauern kann.
Manche Anwender sind recht schnell dabei ein Konsolenfenster einfach zuzumachen, vor allem, wenn scheinbar nichts passiert.

[stahli]

Im Delphi reicht ein Eintrag im Projektquelltext:

Delphi-Quellcode:

program Test;

uses
  Forms,
  fTest in 'fTest.pas' {FormTest};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TFormTest, FormTest);
  if DebugHook = 0 then                // <------ nur wenn nicht im Debugger
    Application.ShowMainForm := False; // <------ dann Formular ausblenden
  Application.Run;
end.

Dann ist kein Fenster sichtbar und der Prozess nur noch im Projektmanager zu abzubrechen.
Im Debugmodus ist das Fenster aber komplett sichtbar.

Ob das in FreePascal so geht weiß ich aber nicht.

[DeddyH]

Aber wozu Fenster erzeugen und verwalten, wenn man keins braucht? Oder habe ich die Anforderung falsch verstanden?

[Christian Seehase]

Je nachdem, was es werden soll, käme auch noch ein Dienst in Frage.