問題：如何將應用程式Handle值，將Handle以指標值給C寫的DLL open_Session( *hwnd, *char_1 , *char_2) // * 為指標 目前作法： Type PAnsiString = ^AnsiString; PBYTE = ^BYTE; PInteger = ^Integer; PHwnd = ^Hwnd; //**************************** function open_session(h:PHwnd;p1:pChar;p2:pChar): Integer; stdcall; implementation function open_session; stdcall; external 'ciben32.dll'; ************************************************************ procedure TForm1.Button1Click(Sender: TObject); var res:integer; vC1: char; vC2: char ; begin hclient:=GetActiveWindow; //取得執行緒視窗handle vC1:='0'; vC2:=' '; res:=open_session( @hClient ,@vC1,@vC2); end; 總是失敗傳回0，我不知道我那一個地方錯了，懇請您能指引一下。

open_Session 傳回 0 , 那要去看 open_Session 裏頭在什麼情況下會傳回 0 呀!! 還有 open_Session 用 C 寫的, 那確定 EXPORT 出來的 function 確實是用 stcall, 還是用 cdecl ? 只有這些訊息看不出所以然的!! ...Aquarius

------
水瓶男的blog: http://791909.blogspot.com

這個問題我已解決了，目前寫法為： open_Session( *hwnd, *char_1 , *char_2) // * 為指標  目前作法：    //**************************** function open_session(h:Pinteger;p1:pChar;p2:pChar): Integer; stdcall; implementation function open_session; stdcall; external 'ciben32.dll'; ************************************************************ procedure TForm1.Button1Click(Sender: TObject); var res:integer; hClient:hwnd; vC1: char; vC2: char ; begin hclient:=handle; //取得執行緒視窗handle res:=open_session( @hClient,@vC1,@vC2); end;