Как скрыть программу от Alt - Tab |
Previous Top Next |
Code: |
procedure TForm1.Button1Click(Sender: TObject); begin ShowWindow(Handle, SW_HIDE); ShowWindow(Application.Handle, SW_HIDE); end; |
©Drkb::01481
Автор: Song
Взято из http://forum.sources.ru
Code: |
with Application do begin ShowWindow(Handle, SW_HIDE); SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW); end; {With} SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW); |
Автор: Stavros
©Drkb::01482
Взято из http://forum.sources.ru