sendkey的問題(50分)

D

dick_chan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #1

我的程序可向notepad發送F1模擬按鍵調出幫助.
procedure TForm1.Button1Click(Sender: TObject);
begin
hnotepad:=FindWindow('notepad',nil);
if hnotepad <> 0 then
PostMessage(hNotePad,WM_keydown,vk_f1, 0)
else
showmessage('file not find');
end;
但卻無法向outlook express 6發信息,代碼修改為
hnotepad:=FindWindow('Outlook Express Browser Class',nil);
請問為什麼??如何解決??

 

D

dick_chan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #2

up

 

A

AIHUA

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #3

procedure TForm1.Button1Click(Sender: TObject);

var
hnotepad : THandle;
begin
hnotepad:=FindWindow(nil,'Inbox - Outlook Express'); //用标题

if hnotepad <> 0 then
PostMessage(hNotePad,WM_keydown,vk_f5, 0)
else
showmessage('file not find');
end;

 

D

dick_chan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #4

不行呀.
我用的是中文版,所以改為
hnotepad:=FindWindow(nil,'收件匣 - Outlook Express - 主 ID');
但沒反應,也沒有SHOWMESSAGE

 

D

dick_chan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #5

up

 

D

dick_chan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-11

• #6

接受答案了.