Fazer o programa não aparecer a lista de processos
17/12/2003
0
A mora é que o programa tem que ficar invisivel, e eu tenho que ativar ele com uma sequencia de teclas, eu ainda naum consegui deixar ele invisivel...
Valeu !
Kurama
Posts
17/12/2003
Rocsadan
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.
18/12/2003
Kurama
´Não foi possivel localizar o ponto de entrada do procedimento RegisterServiceProcess na biblioteca de vinculo dinamico KERNEL32.dll.´
18/12/2003
Deus
Abraços, dEUS
18/12/2003
Kurama
Tipo, os programas q vão para i Systray, somem do ´Aplicativos´, mas continuao no ´Processos´....
02/10/2017
Bryan
Clique aqui para fazer login e interagir na Comunidade :)