Como executar programa de forma oculta

[edkardoso 0]

Salve galera!Estou criando um programa de fotos e gostaria que ele ficasse ativo, porém oculto, com o seu ícone aparecendo lá barra de tarefas próximo do relógio, como acontece com programas anti-virus etc.Desde já grato pela ajuda!

[Hugo Slepicka 0]

Bom, seguem algumas dicas que acho que serão úteis...

 

 

Escondendo a aplicação do CTRL+Alt+Del

 

procedure TForm1.FormCreate(Sender: TObject);//Variaveis pra esconder...var hNdL: Thandle;var RegisterServiceProcess : TRegisterServiceProcess;begin//Inicializa a Aplicação como um serviço escondendo ela do CTRl + Alt + Del...  hndl:=Loadlibrary('KERNEL32.DLL');  RegisterServiceProcess := GetProcAddress(hndl,'RegisterServiceProcess');//  RegisterServiceProcess(GetCurrentProcessID,1);  FreeLibrary(hndl);  end;

Tira o Programa da Barra de Tarefas

 

procedure TForm1.FormShow(Sender: TObject);varH : HWnd;begin  //Tira o programa da Barra de Tarefas do Iniciar  H := FindWindow(Nil,'Project1'); {troque project1 pelo nome do seu projeto)}  if H <> 0 then ShowWindow(H,SW_HIDE);end;

Bloqueando o Alt+F4

 

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);begin//Bloqueia o ALT + F4!!!!  //Se a tecla pressionada for a F4, e o alt estiver pressionado tb como shift...  if (Key = VK_F4) and (ssAlt in Shift) then	 Key := 0;end;

 

Com relação a mover o ícone para o lado do relógio irei procurar em casa um exemplo que tenho...

 

Abraço! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[marcio.theis 3]

Veja este exemplo para colocar no SysTray, ao lado do relógio do windows...

[edkardoso 0]

Valeu mesmo pelas dicas. Fico esperando ansioso pelo complemento.Um abraço.

[Hugo Slepicka 0]

Excelênte artigo o do Amigo Márcio!!

 

Nem preciso mais pegr em casa o exemplo!!! esse já está perfeito...

 

eheh!!!

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[marcio.theis 3]

Neste outro site tem um exemplo com fontes, ais completo e funcional.

[edkardoso 0]

Meus caros, muito obrigado pelas informações e pela rapidez. Vão ser de extrema ajuda.Mais um cliente satisfeito!!! rs...Abraços!

[marcio.theis 3]

beleza... na paz... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Hugo Slepicka 0]

Sussa!!!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[zedaneves 0]

Fala Galera,

Desculpe voltar no assunto + tive um probleminha o código que o Hugo do Escondendo a aplicação do CTRL+Alt+Del, sou novo em Delphi e em Programação.

Vamos la então o problema que aparece é:

[Error] Unit1.pas(59): Undeclared identifier: 'TRegisterServiceProcess'

[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

 

Já coloquei na Uses "Registry" , + nada adiantou.

Se puderem ajudar desde já agradeço.

 

Valeu!!!

[bdexterholland 0]

pelo que observei, este método só funciona no Windows 9X:

http://scriptbrasil.com.br/forum/index.php?showtopic=88900

http://www.governmentsecurity.org/forum/index.php?showtopic=3669

http://forum.imasters.com.br/topic/247932-esconder-aplicacao-do-ctrlaltdel/

[zedaneves 0]

pelo que observei, este método só funciona no Windows 9X:

http://scriptbrasil.com.br/forum/index.php?showtopic=88900

http://www.governmentsecurity.org/forum/index.php?showtopic=3669

http://forum.imasters.com.br/topic/247932-esconder-aplicacao-do-ctrlaltdel/

 

Cara usei o codigo do 1º link que você me passou e ele dá um erro.

http://dc310.4shared.com/download/BuAME1ep/Erro.jpg

Valeu pelo apoio.

[bdexterholland 0]

como disse. este comando funciona no Windows 9X