Ver Mensaje Individual
  #2  
Antiguo 08-01-2004
Gydba Gydba is offline
Miembro
 
Registrado: ene 2004
Ubicación: Argentina
Posts: 673
Reputación: 21
Gydba Va por buen camino
Me quede muy interesado con tu inquietud puesto que los trucos comunes no funcionan en WinXP, y llegue a esto:

program Project1;

uses
Forms,
Windows,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
var
ExtendedStyle : LongInt;
begin
Application.Initialize;
// Hide app from taskbar
Application.Title := '';
Application.CreateForm(TForm1, Form1);
// Hide app from alt-tab
ExtendedStyle := GetWindowLong(application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle or WS_EX_NOACTIVATE);
// Hide form alt-tab (But with not comun titlebar)
ExtendedStyle := GetWindowLong(Form1.Handle, GWL_EXSTYLE);
SetWindowLong(Form1.Handle, GWL_EXSTYLE, ExtendedStyle or WS_EX_TOOLWINDOW);
Application.Run;
end.

El problema está en la barra de título, pero eso te lo dejo a vos
__________________
Suerte
.: Gydba :.
Responder Con Cita