![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#2
|
|||
|
|||
|
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 :. |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|