Hiermit k?nnt Ihr Euer Programm weitestgehend unsichtbar machen.
Es verschwindet aus der Taskbar und auch unter Anwendungen im Taskmanager ist nichts mehr zu sehen.
Allerdings findet man es wenn man gut hinguckt unter Prozesse wieder, dort
f?llt es aber mit einem Programmnamen wie Windows System Unterst?tzung oder so auch kaum auf....
Ich habe in dem Beispiel 2 Timer eingebaut, einer gibt jede Sekunde einen Ton von sich, und der andere beendet mach 10 Sekunden das Programm....
Das sind nat?rlich keine notwenigen Bestandteile, sondern dient nur dem besseren testen...... Viel Spa? :^^:
Code
- unit Hideme;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, Buttons, ExtCtrls;
- type
- TForm1 = class(TForm)
- Timer1: TTimer;
- Timer2: TTimer;
- BitBtn1: TBitBtn;
- procedure BitBtn1Click(Sender: TObject);
- procedure Timer2Timer(Sender: TObject);
- procedure Timer1Timer(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- private
- { Private-Deklarationen }
- public
- { Public-Deklarationen }
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.dfm}
- //---------------------------------------------------------------------------
- procedure TForm1.BitBtn1Click(Sender: TObject);
- var
- owner:thandle;
- begin
- timer1.Enabled := true;
- timer2.Enabled := true;
- owner := GetWindow(handle, GW_OWNER);
- ShowWindow(owner,SW_HIDE);
- end;
- //---------------------------------------------------------------------------
- procedure TForm1.Timer2Timer(Sender: TObject);
- begin
- close;
- end;
- //---------------------------------------------------------------------------
- procedure TForm1.Timer1Timer(Sender: TObject);
- begin
- MessageBeep(1000);
- end;
- //---------------------------------------------------------------------------
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- Timer1.Enabled := false;
- Timer2.Enabled := false;
- end;
- //---------------------------------------------------------------------------
- end.