初学Dephi请高人赐教:
怎样把 ALT+s 这个组合键传到指定的程序中呢?
我的源代码:
procedure TForm1.Button1Click(Sender: TObject);
var
hwndNotepad : THandle;
hwndEdit : THandle;
s : string;
begin
hwndNotepad := FindWindow('GLBSWizard',nil);
if hwndNotepad=0 then
begin
ShowMessage('Not found');
Exit;
end;
hwndEdit := FindWindowEx(hwndNotepad, 0, 0, nil);
if hwndEdit=0 then
begin
ShowMessage('Not found');
Exit;
end;
PostMessage(hwndEdit,WM_KEYDOWN,Vk_Menu,0);
PostMessage(hwndEdit,WM_KEYDOWN,ord('s'),0);
PostMessage(hwndEdit,WM_KEYup,Vk_Menu,0);
end;
end.
要把‘ALT+S'组合键传到“GLBSWizard”这个窗口去,好像不行!
错在哪里了?
解决问题一定结帐、给分!