请问大侠们,如何用程序打开显卡属性对话框,并转到“疑难解答”页面。
就是在桌面中右击鼠标,点“属性-设置-高级”出现的那个对话框。
[解决办法]
想要再进入子页面,就需要再研究一下了。
哈哈。
[解决办法]
procedure TForm1.FormCreate(Sender: TObject);
var I:integer;
begin
Winexec(pchar( 'rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3 '),SW_SHOWNORMAL );
keybd_event( VK_MENU, MapVirtualKey( VK_MENU, 0 ), 0 , 0 );
keybd_event( 86, MapVirtualKey( 86, 0 ), 0 , 0 );
keybd_event( 86, MapVirtualKey( 86, 0 ), KEYEVENTF_KEYUP , 0 );
keybd_event( VK_MENU, MapVirtualKey( VK_MENU, 0 ), KEYEVENTF_KEYUP , 0 );
for I := 1 to 4 do
begin
keybd_event( VK_TAB, MapVirtualKey( VK_TAB, 0 ), 0 , 0 );
keybd_event( VK_TAB, MapVirtualKey( VK_TAB, 0 ), KEYEVENTF_KEYUP , 0 );
end;
for I := 1 to 5 do
begin
keybd_event( VK_RIGHT, MapVirtualKey( VK_RIGHT, 0 ), 0 , 0 );
keybd_event( VK_RIGHT, MapVirtualKey( VK_RIGHT, 0 ), KEYEVENTF_KEYUP , 0 );
end;
sleep(500);
for I := 1 to 8 do
begin
keybd_event( VK_TAB, MapVirtualKey( VK_TAB, 0 ), 0 , 0 );
keybd_event( VK_TAB, MapVirtualKey( VK_TAB, 0 ), KEYEVENTF_KEYUP , 0 );
sleep(200);
end;
keybd_event( VK_SPACE, MapVirtualKey( VK_SPACE, 0 ), 0 , 0 );
keybd_event( VK_SPACE, MapVirtualKey( VK_SPACE, 0 ), KEYEVENTF_KEYUP , 0 );
keybd_event( VK_RETURN, MapVirtualKey( VK_RETURN, 0 ), 0 , 0 );
keybd_event( VK_RETURN, MapVirtualKey( VK_RETURN, 0 ), KEYEVENTF_KEYUP , 0 );
sleep(2000);
keybd_event( VK_RETURN, MapVirtualKey( VK_RETURN, 0 ), 0 , 0 );
keybd_event( VK_RETURN, MapVirtualKey( VK_RETURN, 0 ), KEYEVENTF_KEYUP , 0 );
sleep(1000);
Application.Terminate;
end;
[解决办法]
rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3