Ett osynligt delphi-program...

[Mikey]

Jag har gjort mitt delphi-program så att det inte syns på aktivitetsfältet och nu vill jag att den heller inte ska synas, när man trycker CTRL+ALT+DEL.

 

Vad är koden för detta?

 

tack i förhand

 

/Mikey

[Petter Holmström]

Gå t.ex. till www.tietovayla.fi/dsp och sök efter en komponent som heter TStealth.

 

-PEtter-

[J S]

Detta funkar du får kolla kommentarerna.

 

 

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

 

type

PFNRegSvcPrc = ^TFNRegSvcPrc;

TFNRegSvcPrc = function(dwProcessId: Cardinal; dwType: Cardinal): Cardinal stdcall;

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

procedure RegisterAppAsService;

 

implementation

 

{$R *.DFM}

 

procedure TForm1.FormCreate(Sender: TObject);

begin

RegisterAppAsService;

end;

 

procedure RegisterAppAsService;

var

RegisterServiceProcess: TFNRegSvcPrc;

begin

//gör att programmet inte syns i taskmanger

@RegisterServiceProcess := GetProcAddress(GetModuleHandle('KERNEL32'), 'RegisterServiceProcess');

RegisterServiceProcess(0, 1);

end;

 

procedure TForm1.FormActivate(Sender: TObject);

begin

// Döljer programmet på aktivitetsfältet

ShowWindow(Application.Handle, SW_HIDE);

end;

 

end.