domingo, 13 de setembro de 2009

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

//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);

Nenhum comentário:

Postar um comentário