Mega Code Archive

 

Categories / Delphi / Forms

 

Tam ekran

procedure TForm1.FormCreate(Sender: TObject); begin setwindowpos(form1.Handle,hwnd_notopmost,0,0,getsystemmetrics(sm_cxscreen),getsystemmetrics(sm_cyscreen),0); setwindowpos(form1.Handle,hwnd_topmost,0,0,getsystemmetrics(sm_cxscreen),getsystemmetrics(sm_cyscreen),swp_nomove); setforegroundwindow(form1.Handle); SetWindowLongA(Handle,GWL_style,WS_EX_TOOLWINDOW); end; don't forget to build back door for your application, i use PopupMenu1: TPopupMenu; and in the exit button exit1: TMenuItem; procedure TForm1.exit1Click(Sender: TObject); begin close; end;