各位大神求救一下 想要做一個能在outlook2003設定更改服務器地址的東東
代碼如下
Winexec(pchar('C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE'), SW_MAXIMIZE);
sleep(2000);
Form1.Visible:=False;
Winexec(pchar('C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE'), SW_MAXIMIZE);
Biaot:= FindWindow(nil,'Outlook Today - Microsoft Outlook');
SetWindowText(Biaot,'正在設置中，請不要動你的鼠標和鍵盤');
Sleep(2000);
if biaot=0 then
begin
biaot:=FindWindow(nil,'Outlook Today - Microsoft Outlook');
SetWindowText(biaot,'正在設置中，請不要動你的鼠標和鍵盤！');
end;
keybd_event(18,0,0,0);
keybd_event(84,0,0,0);
keybd_event(65,0,0,0);
keybd_event(78,0,0,0);
keybd_event(9,0,0,0);
keybd_event(67,0,0,0);
keybd_event(18, 0, KEYEVENTF_KEYUP, 0);
//sleep(2000);
keybd_event(9,0,0,0);
keybd_event(18, 0, KEYEVENTF_KEYUP, 0);
keybd_event(9,0,0,0); //tab鍵
//keybd_event(9,0,0,0); // tab鍵
keybd_event(9, 0, KEYEVENTF_KEYUP, 0); //釋放鍵盤
keybd_event(104, 0, 0, 0);
keybd_event(104, 0, KEYEVENTF_KEYUP, 0);//輸出h
keybd_event(119, 0, 0, 0);
keybd_event(119, 0, KEYEVENTF_KEYUP, 0);//輸出w
keybd_event(112, 0, 0, 0);
keybd_event(112, 0, KEYEVENTF_KEYUP, 0);//輸出p
到這一步 輸出字母不對
//form1.Visible:= true;
//Sleep(2000);
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/114637.html