之前遇到的問題，我都經由看以前的文章解決了，但最近… 小的遇到一個問題，例如我現在抓到了資料庫中的資料出來， 但是，我想要寫段程式，讓它跑的結果是， 它會依序丟出那個檔案中的字串值出來… 並不限定轉到word那些的… 就像我開一個記事本，或是網頁的留言版， 它就會依序輸入到那裡面.. 麻煩各位前輩解答了！

Delphi的CD資料夾中，有Info\Extras\SendKeys\SndKey32.pas 範例： 參考來源：http://www.socialwork.com.hk/vb/sam/big5-insert.html  

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;
  WinHandle,NowWinHandle:HWND;
implementation
   uses sndkey32;
{$R *.dfm}    procedure TForm1.FormCreate(Sender: TObject);
begin
  WinHandle:=GetForegroundWindow;
end;    procedure TForm1.FormActivate(Sender: TObject);
begin
 SetWindowPos(self.Handle, HWND_TOPMOST, 0, 0, 0, 0, 3);
end;    procedure TForm1.Timer1Timer(Sender: TObject);
begin
 NowWinHandle:=GetForegroundWindow;
 if (WinHandle=0) or (NowWinHandle=WinHandle) or (NowWinHandle=self.Handle) then
  exit
 else  WinHandle:=NowWinHandle;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
 SetForegroundWindow(WinHandle);
 Sleep(10);
 SendKeys('abc123{left}{left}{left}def{end}456{left 6}ghi{end}789', True);
end;    end.     

網海無涯，唯學是岸！ 因為擁有，所以分享！ 發表人 - qoo1234 於 2004/12/08 01:35:03

感謝！我已經會了...