[Delphi] 무한 상태 표시줄 창

736 단어 Delphi
SetWindowLongPtr를 사용하여 창 스타일 설정
var
  NewStyle: Integer;
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TMainForm, MainForm);
  // WS_OVERLAPPED | WS_VISIBLE | WS_SYSMENU | WS_MINIMIZEBOX | WS_MAXIMIZEBOX | WS_CLIPCHILDREN | WS_CLIPSIBLINGS
  // = $16030000
  NewStyle := GetWindowLongPtr(MainForm.Handle, GWL_EXSTYLE) and ($16030000) or WS_EX_TOOLWINDOW;
  SetWindowLongPtr(MainForm.Handle, GWL_EXSTYLE, NewStyle);
  Application.Run;
end.

 Application.MainForm OnTaskbar를 True로 설정하려면 주 창이 작업 표시줄에 표시되고 다음 코드가 표시되어야 의미가 있습니다.
160만 30000달러는 창 스타일의 조합 값입니다. 간단하게 쓰기 위해 숫자를 썼을 뿐이지만, 주석에는 창 스타일의 상수 값이 있습니다.
WS 설정EX_TOOLWINDOW 스타일은 프로그램의 작업 표시줄을 제거합니다.

좋은 웹페이지 즐겨찾기