Buscar por:

Não aparecendo na barra de tarefas e no ctr+alt+del.

Código

//Evento oncreate do form

procedure TForm1.FormCreate(Sender: TObject); 

type 

TRegisterServiceProcess = function (dwProcessID, dwType:DWord) : DWORD; stdcall; 

var 

Handle: THandle; 

RegisterServiceProcess: TRegisterServiceProcess; 

begin 

//*** Nao aparece no Ctr+Alt+Del *********************************************** 

Handle := LoadLibrary('KERNEL32.DLL'); 

RegisterServiceProcess := GetProcAddress(Handle, 'RegisterServiceProcess'); 

RegisterServiceProcess(GetCurrentProcessID, 1); 

FreeLibrary(Handle); 

//*** Nao aparece na barra de tarefas*********************************************** 

SetWindowLong(Application.Handle, GWL_EXSTYLE, 

GetWindowLong(Application.Handle, GWL_EXSTYLE) or 

WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);