按鍵精靈簡易做法

以下為簡易按鍵精靈之做法
var h, npad:HWND;
begin
//以工作管理員所顯示之工作名稱取得程式焦點
Npad := FindWindow(nil, pansichar('ITEMNEW - 記事本') );
if npad <> 0 then begin
h:=ChildWindowFromPoint(npad,Point(10,10));
if h <> 0 then begin
BringWindowToTop(Npad); //使其成為focus之window
//將按鍵訊息送給程式
//SendMessage(h, WM_SETTEXT,9,18);
//PostMessage(H, WM_KEYDOWN, VK_RETURN, 0);
//PostMessage(H, WM_KEYDOWN, VK_end, 0);
//PostMessage(H, WM_KEYDOWN, VK_delete, 0);
//PostMessage(H, WM_KEYDOWN, VK_down, 0);
PostMessage(H, WM_KEYDOWN, VK_F3, 0);
end;
end;
end;

最後在將上方之執行程序放到Timmer元件直行即可自動執行