<p>普段どこにあるかわからない、 Application変数(TApplication)のウィンドウ。 本当にあるのかどうか確認するために表示させることにしました。 表示させてもあまり意味がない、役立たずなサンプルです。 <br />
フォームの OnCreate に書いた場合のサンプルです。 フォーム表示と同時に、スクリーン左上にアプリケーションのウィンドウが表示されます。</p>
<pre class="brush: delphi">
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Application.Handle, GWL_STYLE, WS_CAPTION);
  SetWindowPos(Application.Handle, HWND_TOP, 0, 0, 100, 100, 0);
end;
</pre>