Buscar por:

Esconder o prog. do gerenciador de programas e barra de terefas(essa funciona 100%)

Código

Já gastei várias horas atrás de uma funcão como essa mais todas que encontrei, eram imcompletas e escrita pra funcionar com o Kernel.dll do Windows 98 ou 95 e nunca funcionava como xp até que examinando um site americado encontrei uma dica e mesclei com informações obtidas no site da microsoft, sobre a dll do windows que gerencia processos e programas abertos pelo Windows.

Essa dica aqui foi tirada de um site em ingles e modificada pra que funcionasse corretamente....

Crie uma nova aplicação salve a Unit com o nome de TUnit, depois cole o conteudo abaixo dentro da respectiva unit já salva.. e vc vai ter o que o arquivo executável rodando totalmente invisível, confira abaixo:

Não esqueça de renomear o nome da aplicação para

Esconder_aplicativo

unit tUnit;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

const

RSPSIMPLESERVICE = 1;

RSPUNREGISTERSERVICE = 0;

// Essa funcão é para quem usa o windows 95 ou 98...

//function RegisterServiceProcess(dwProcessID, dwType: DWord) : DWord; stdcall; external 'C:WINDOWSsystem32KERNEL32.DLL';

function GetProcAddress(dwProcessID, dwType: DWord) : DWord; stdcall; external 'KERNEL32.DLL';

procedure TForm1.Button1Click(Sender: TObject);

var

H : HWnd;

begin

H := FindWindow(Nil,'Esconder_aplicativo'); 

if H <> 0 then ShowWindow(H,SW_HIDE);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);

GetProcAddress(GetCurrentProcessID, RSPSIMPLESERVICE);

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

GetProcAddress(GetCurrentProcessID, RSPUNREGISTERSERVICE);

end;

end. 

Se quizer enconder o form tb coloque seu interesse nos coments.... que envia em seguida...