Programm verstecken

D@go · 25. August 2008

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

Kybernetik · 9. November 2008

Jo gut brauchbar,

[+] Taskbar unsichtbar
[+] Beepton
[+] Close

- Taskmanager -
[-] Anwendung auffindbar
[-] Bug beim Minimieren zeigt der die Anwendung wieder an

(kann an Vista liegen , denn bei mir zeigt der unter Taskmanager->Anwendungen
das Project an auch wenn es richtig compiliert ist)

Hadschi · 9. November 2008

Geht auch anders:

In die Projektdatei (.dpr) einfach vor Application.Run folgendes eintragen

Code

Application.ShowMainForm:= false;

Die Projektdatei k?nnt ihr auch aufrufen indem ihr auf der rechten Seite auf euer Programm, also die .exe Rechtsklick macht und auf Quellcode anzeigen dr?ckt.

Paran0id · 10. November 2008

Zitat von Hadschi

Geht auch anders:

In die Projektdatei (.dpr) einfach vor Application.Run folgendes eintragen

Code

Application.ShowMainForm:= false;

Die Projektdatei k?nnt ihr auch aufrufen indem ihr auf der rechten Seite auf euer Programm, also die .exe Rechtsklick macht und auf Quellcode anzeigen dr?ckt.

Du solltest dazu sagen, dass diese Methode NUR beim RAD Studio von Codegear funktioniert bei Delphi 2 - 7 gehts nicht.

Teilen