抓取字串的值後,送出每個字出去 |
答題得分者是:qoo1234
|
yeyejames
一般會員 發表:1 回覆:1 積分:0 註冊:2004-12-07 發送簡訊給我 |
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
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 |
yeyejames
一般會員 發表:1 回覆:1 積分:0 註冊:2004-12-07 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |