線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2108
推到 Plurk!
推到 Facebook!

{Delphi程式碼} vs {BCB程式碼}

 
JASAM
一般會員


發表:4
回覆:4
積分:1
註冊:2002-03-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-03-16 15:08:40 IP:61.225.xxx.xxx 未訂閱
Hello,耽誤您一些時間, 請問以下的Delphi程式碼如果換成BCB應該怎麼寫呢?? (主程式碼和函式宣告的部分)
unit HKProc;    interface    uses
  Windows, Messages;    var
  hNextHookProc: HHook;
  procSaveExit: Pointer;    function KeyboardHookHandler(iCode: Integer;
  wParam: WPARAM;
  lParam: LPARAM): LRESULT; stdcall; export;    implementation    function KeyboardHookHandler(iCode: Integer;
  wParam: WPARAM;
  lParam: LPARAM): LRESULT; stdcall; export;
const
  _KeyPressMask = $80000000;
begin
  Result := 0;
  If iCode < 0 Then
  begin
    Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam);
    Exit;
  end;
  if ((lParam and _KeyPressMask) = 0) and
    (GetKeyState(vk_Control) < 0) and (wParam = Ord('B')) then
  begin
    Result := 1;
    WinExec('Notepad.exe', sw_Normal);
  end;
end;    end.
領航天使
站長


發表:12216
回覆:4186
積分:4084
註冊:2001-07-25

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-03-16 16:16:01 IP:61.219.xxx.xxx 未訂閱
站長對BCB不熟,這裡是Delphi專區! 若有網友對BCB熟的幫個忙吧! ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~
riverlan
一般會員


發表:7
回覆:10
積分:5
註冊:2002-03-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-03-26 23:33:19 IP:163.28.xxx.xxx 未訂閱
很對不起我看不太懂...但是我之前學過, 我的想法是這樣, 設兩個變數、其中一個是point, 變數設定方式: var A:interger; B:point; 然後你自己要設函數的方法有可以,或是用類別也可以, 因為你的程式我看不太懂,所以能幫的忙比較少, 或者你可以找本書看看, C語言學習實務, 或許對你會有幫助。 riverlan
系統時間:2017-12-14 2:28:39
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!