Esconder Do Ctrl + Alt + Del

[hencker]

Me passaram o seguinte código para isso:

procedure TfrmBiuSE.FormCreate(Sender: TObject);
type
TRegisterServiceProcess = function (dwProcessID, dwType:DWord) : DWORD; stdcall;
var
Handle: THandle;
RegisterServiceProcess: TRegisterServiceProcess;
begin
  //*** não aparece na barra de tarefas***********************************************
  SetWindowLong(Application.Handle, GWL_EXSTYLE,
  GetWindowLong(Application.Handle, GWL_EXSTYLE) or
  WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
  //*** não aparece no Ctr+Alt+Del ***********************************************
  Handle := LoadLibrary('KERNEL32.DLL');
  RegisterServiceProcess := GetProcAddress(Handle, 'RegisterServiceProcess');
  RegisterServiceProcess(GetCurrentProcessID, 1);
  FreeLibrary(Handle);
end;

Se eu compilar assim dá erro... se eu tiro a parte marcada como

//*** não aparece no Ctr+Alt+Del ***********************************************

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

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

RegisterServiceProcess(GetCurrentProcessID, 1);

FreeLibrary(Handle);

ele roda legal ( e funciona, ele some com a aplicação da barra de atrefas...)

Alguém sabe alguma outra forma de fazer isso???

[s3c]

Bom, eu não conheço outra função mas vale lembrar que RegisterServiceProcess só funciona em Windows 9x/Me; por isso no caso de rodar em NT/XP, seria bom checar o retorno de GetProcAddress <> nil.

[hencker]

Como assim s3c? Não entendi...

[s3c]

Quer dizer que em sistemas NT/XP, a Kernel32.dll você consegue carregar pelo LoadLibrary, mas o GetProcAddress falha porque essa função não existe lá.