Как скрыть программу от 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