Menu Iniciar

[Guest Alex]

Bom pessoal, gostaria de saber se alguém tem alguma experiência no seguinte problema que venho enfrentando. Gostaria que meu programa (que carrega logo na inicialização do windows) não aparecesse na barra de tarefas do windows e consequentemente não pudesse ser interrompido (Detonado) pelo Gerenciador de Tarefas ou simplesmente o Alt+F4. Agradeceria muito se alguém soubesse de alguma dica a respeito disso. Abraços e um Excelente carnaval para todos.

[DELPHI-Man32]

Escondendo o Programa de Ctrl+Alt+Del

unit Unit1;

interface

uses

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

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

{Para ocultar um programa, deve-se registrar este como um serviço do Windows. Normalmente um serviço do Windows é ativado quando com a inicialização do sistema (Windows) e pemanece ativo até a finalização deste. Este processo esconde o programa da lista "Ctrl+Alt+Del"}

Const

Servico_Simples = 1;

Servico_Unregister = 1;

Function RegisterServiceProcess(DwProcessID, dwType: DWord): DWord; StdCall; External 'KERNEL32.dll';

procedure TForm1.FormCreate(Sender: TObject);

begin

RegisterServiceProcess(GetCurrentProcessID, Servico_Simples);

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

RegisterServiceProcess(GetCurrentProcessID, Servico_Unregister);

end;

end.

-----

EXLUSIVIDADE PARA O PROGRAMA NO SHELL DO WINDOWS...

No System.ini você tem uma configuração como esta :

Shell=Explorer.exe

Basta trocar por

Shell=Myprog.exe

Ou usando delphi

procedure Tform1.ChangeShell(String programa);

var

ArquivoIni : Tinifile;

begin

try

ArquivoIni := Tinifile.Create('System.ini');

ArquivIni.WriteSection('Config','Shell','Myprog.exe');

fynally

ArquivoIni.Destroy;

end;

end;

VEJA SE É ISSO QUE você PRECISA...

DELPHI-Man