Yop
le code qui pose probleme
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
procedure TForm1.Button5Click(Sender: TObject);
begin
hIExplorer := FindWindow('IEFrame', nil);
Sendmessage(hIExplorer, WM_KEYDOWN, VK_MENU,1);
Sendmessage(hIExplorer, WM_KEYDOWN, VK_HOME,1);
Sendmessage(hIExplorer, WM_KEYUP, VK_HOME,1);
Sendmessage(hIExplorer, WM_KEYUP, VK_MENU,1);
end;
c'est supposé envoyer la fenetre internet explorer vers la page de demarrage mais ca ne bouge pas .
par contre si je fais ca :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
setforegroundwindow(hIExplorer);
keybd_event(VK_MENU, 0, 0, 0);
keybd_event(VK_HOME, 0, 0, 0);
keybd_event(VK_HOME, 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);
ca marche , mais c'est pas ce que je cherche =/.
quelqun a une autre idée ?? j'ai le meme resultat que sendmessage avec postmessage