フォームが表示された状態でタスクバー非表示

解決

Y.M 2005-05-22 10:03:43 No: 14928

時計ソフトを作っています．
TrayIconコンポーネントを使ってタスクトレイに格納していますが，タスクバーに表示されるのを消したいです．時計なのでフォームを表示した状態で実現したいのですがどのようにすればよいのでしょうか？

よろしくお願いします．

Mr.XRAY URL 2005-05-22 11:16:56 No: 14929

[プロジェクト][ソース表示](Delphi5の場合)からプロジェクトのソース
を開いて，以下のSetWindowLongを追加すると，タスクバー非表示と
なります．

program Project1;

uses
Forms,Windows,
Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
//SetWindowLongを以下の引数値で追加(usesにWindowsが必要)
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Y.M 2005-05-22 19:47:33 No: 14930

できました！ありがとうございました．
半年ほど悩んでいたのが嘘みたいです．