請問一下 (1) 我想記錄操作者是用 執行那一支程式  (TEST_PRJ.EXE) 跑了那一個 Unit  (TEST_UNIT1) 最後按下哪一個按鍵 (BTN_TESTClick) 不知如何做???  如後程式碼    (2) 若程式呼叫A Function ,再呼叫 B function ,再呼叫 C function ..... 可以都記錄下來嗎 ???    

 
// TEST_PRJ.EXE    unit TEST_UNIT1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  TForm1 = class(TForm)
    BTN_TEST: TButton;
    Edit1: TEdit;
    procedure BTN_TESTClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.BTN_TESTClick(Sender: TObject);
var
  exe , uuu , bbb : string;    begin     //  exe :=    ; // 執行程式名字
 //  uuu :=    ; //  Unit 的名字
 //  bbb :=    ; // 按下按鍵的名字
 //  edit1.Text := '程式=' exe  '  Unit='  uuu  '  按鍵=' bbb;
   EDIT1.Text := ' 測試用= ';
end;    end.    

參考附檔看看吧～ 不知道是不是你想要的～ http://delphi.ktop.com.tw/loadfile.php?TOPICID=20042342&CC=448238 發表人 - huwk 於 2005/01/23 20:54:23

------
熊的學習 http://huwk.blogspot.com