請問 要如何作到這樣的功能 當我的程式執行一外部程式時，例如小作家，我希望小作家自己無法關閉也無法放大縮小，就如同 Delphi Form 的 BorderStyle 被設成 bsNone 一樣 感謝

引言: 謝謝 hanger 你已經提供一個很好的方法了，我可以自己找到答案了，不過其怪的是，你的文章怎麼不見了，幸虧我看見了，謝謝。 下面的例子是在書上找到的範例(Win32ShellAPI) procedure TForm1.CheckBox1Click(Sender: TObject); var WindowStyle: Longint; // holds the window style begin {get the current styles used by this window} WindowStyle := GetWindowLong(Form1.Handle, GWL_STYLE); {toggle the WS_CAPTION style} if (CheckBox1.Checked) then WindowStyle := WindowStyle OR WS_CAPTION else WindowStyle := WindowStyle AND NOT WS_CAPTION; {toggle the WS_BORDER style} if (CheckBox2.Checked) then WindowStyle := WindowStyle OR WS_BORDER else WindowStyle := WindowStyle AND NOT WS_BORDER; {toggle the WS_SYSMENU style} if (CheckBox3.Checked) then WindowStyle := WindowStyle OR WS_SYSMENU else WindowStyle := WindowStyle AND NOT WS_SYSMENU; {toggle the WS_MAXIMIZEBOX style} if (CheckBox4.Checked) then WindowStyle := WindowStyle OR WS_MAXIMIZEBOX else WindowStyle := WindowStyle AND NOT WS_MAXIMIZEBOX; {toggle the WS_MINIMIZEBOX style} if (CheckBox5.Checked) then WindowStyle := WindowStyle OR WS_MINIMIZEBOX else WindowStyle := WindowStyle AND NOT WS_MINIMIZEBOX; {make the window use the new styles} SetWindowLong(Form1.Handle, GWL_STYLE, WindowStyle); {this little trick forces the entire window to redraw, including non-client areas} SetWindowPos(Handle, 0, 0, 0, 0, 0, SWP_DRAWFRAME or SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER); {display the current styles used by this window} Label1.Caption := 'Current Style: ' IntToStr(WindowStyle); end;

哦! 因為我後來發現那個方法是把 AP 不顯示在 task bar 上的 覺得不對, 就把它刪了. 刪又去找 Hide AP Title 的方法 不過, 恭喜您找到答案了! :) --- Have you ever wondered what it would be like?

這個方法在 win98 系列 對外部檔無效