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.
Alles anzeigen