Witajcie
Mam problem wysylam komunikat o nacisnieciu klawisza ENTER ale niestety w XP to nie dziala , dlaczego ?
w WIN 98 dziala bez zarzutu?
oto czesc kodu;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
HB:=FindWindow(nil,'Programik'); // szukaj okna z tytulem
if IsWindowVisible(HB) then
begin
SetWindowPos(HD,H,0,0,SWP_FRAMECHANGED,SWP_NOMOVE,SWP_NOSIZE );
keybd_event(VK_LMENU, 1, 0, 0);
keybd_event(VK_RETURN, 1, 0, 0);
keybd_event(VK_RETURN, 1, KEYEVENTF_KEYUP, 0);
keybd_event(VK_LMENU, 1, KEYEVENTF_KEYUP, 0);
end;
Kto z WAS wie jak to przerobic by dzialalo na XP takze ?
Z gory dziekuje za odpowiedz lub wskazowki.
Serdecznie Wszystkich Pozdrawiam