sendmessage與shellexecute搭配的問題 |
答題得分者是:aquarius
|
chimera
初階會員 發表:62 回覆:78 積分:28 註冊:2003-03-22 發送簡訊給我 |
tmpHWnd := ShellExecute(Application.Handle, pchar('open'), pchar('c:\windows\system32\cmd.exe'), nil, nil, SW_show); SendMessage(HWND_BROADCAST, WM_CHAR, 68, 0); SendMessage(HWND_BROADCAST, WM_CHAR, 73, 0); SendMessage(HWND_BROADCAST, WM_CHAR, 82, 0); SendMessage(HWND_BROADCAST, WM_CHAR, VK_RETURN, 0);當我按下按鈕執行上面的procedure後,會在命令提示字元輸入兩次同樣的字母, 把HWND_BROADCAST改成tmpHWnd後,因為sendmessage好像在help中有寫到the message is not sent to child windows 所以沒辦法傳到命令提示字元,請問該怎麼修改才能讓正常的從我的程式下達指令到命令提示字元 |
aquarius
資深會員 發表:3 回覆:347 積分:330 註冊:2003-05-21 發送簡訊給我 |
procedure TouchKey(wVk:word;wScan:word;dwFlags,dwExtraInfo:dword) ; var In1 : TInput ; begin In1.Itype:=INPUT_KEYBOARD; In1.ki.wVk:=wVk; In1.ki.wScan:=wScan; In1.ki.dwFlags:=dwFlags; In1.ki.time:=0; In1.ki.dwExtraInfo:=dwExtraInfo; SendInput(1, In1, sizeof(TINPUT)); end ; procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Application.Handle, pchar('open'), pchar('cmd.exe'), nil, nil, SW_show); sleep(300) ; TouchKey(ord('D'),MapVirtualKey(ord('D'),0),0,0) ; TouchKey(ord('D'),MapVirtualKey(ord('D'),0),KEYEVENTF_KEYUP,0) ; TouchKey(ord('I'),MapVirtualKey(ord('I'),0),0,0) ; TouchKey(ord('I'),MapVirtualKey(ord('I'),0),KEYEVENTF_KEYUP,0) ; TouchKey(ord('R'),MapVirtualKey(ord('R'),0),0,0) ; TouchKey(ord('R'),MapVirtualKey(ord('R'),0),KEYEVENTF_KEYUP,0) ; TouchKey(VK_RETURN,MapVirtualKey(VK_RETURN,0),0,0) ; TouchKey(VK_RETURN,MapVirtualKey(VK_RETURN,0),KEYEVENTF_KEYUP,0) ; end;...Aquarius
------
水瓶男的blog: http://791909.blogspot.com |
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
http://delphi.ktop.com.tw/link.asp?topic_id=38858 Value returned from ShellExecute is a fake handle....
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |