簡單說就是希望將外部程式(如NotePad)的 Border 設定成 bsNone 的樣子。 不能用 SetWindowRgn 因在 Window Update 後的 98 不能用。 可否用 SendMessage 達到? 謝謝。

I don't think SendMessage can do it, e.g.    

procedure TForm1.Button1Click(Sender: TObject);
var
    AHandle: THandle;
begin
    AHandle := FindWindow('Notepad',nil);
    SetWindowLong(AHandle,GWL_STYLE,
        GetWindowLong(AHandle,GWL_STYLE) and (not WS_BORDER));
end;

Thanks. I know SetWindowLong but it only able to set windows in the same process in 95/98/me which is more worst then SetWindowRgn. I got a bad workaround for SetWindowRgn, which is to create a empty form and set the external window parent to the empty form and SetWindowRgn on the empty form. However, it is not good becasuse it is not quite competable with other HWND API becasue now 2 HWND is involved.

>

這個我正在研究，也用別人寫的dll 成功在 98 掛入其他程式來修改 window style。(剛剛試成的)    不過我不想自己寫這個 dll 因為我想試能否也做到 setWindowRgn, 因為這是我設想新版程式中一個很重要的功能，但卻在 window 98 卡住了。 問題是...我不懂甚樣寫這個 dll...< > <>哎呀打多了個不字，意思變相反，怪不得沒人理我< > 發表人 - Justmade 於 2003/05/04 16:15:05

基本上試驗成功了，可以在目標程式做很多東西耶...不過還有很多動西要學要做才能真的使用。    雖說 Willium 版主你所提出的我都已在試，但我是在Web 上找得很辛苦才找到方向，你一想就能說出大綱，實在是技高一籌。偑服偑服。    小弟最近好像成了最多問題的版主耶