簡易按鍵精靈

最近因為要整理轉檔文件，遇到簡單又需重複進行的動作(相同動作要做上千次@@)，為了避免手殘，所已做了一個簡單的按鍵精靈為了避免手殘，所以做了一個簡單的按鍵精靈程式碼轉貼如下：

procedure TForm1.Button2Click(Sender: TObject);
var s:string;
h, npad:HWND;
begin
//取得作用中的應用程式
//應用程式名稱可由Windows工作管理員的應用程式頁籤查詢
Npad := FindWindow(nil, pansichar(trim(Edit1.Text)) );

if npad <> 0 then begin
h:=ChildWindowFromPoint(npad,Point(10,10));
if h <> 0 then begin
BringWindowToTop(Npad); //使其成為focus之window
PostMessage(H, WM_KEYDOWN, VK_F3, 0);//傳送按鍵F3給應用程式
end;
end;
end;

將以上Founction放在Timmer元件....就可以是一個簡易的按鍵精靈了
目前，已經將它用於Online Game掛網用.....