başka programa tuş göndermek

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
guduknecmi
Üye
Mesajlar: 99
Kayıt: 08 Nis 2004 02:18
İletişim:

başka programa tuş göndermek

Mesaj gönderen guduknecmi »

mucon arkadaşın forumda verdiği kodda menü çubuğuna click mesajı gönderiliyor. Menü değilde buton veya memo nesnesinin handle numarasını nasıl alırız.getmenu yerine ne kullanmalıyız?

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject); 
var 
i:integer; 
whandle:hwnd; 
menucub,ustmenu:hwnd; 
begin 
whandle:=FindWindow('Notepad',nil); //Notepad programının handle'nı bulur 
SetForegroundWindow(whandle); //Notepad'i öne getirir 
menucub:=getmenu(whandle); //menü çubuğunun handle'nı alır 
ustmenu:=getsubmenu(menucub,1); //ikinci menü (Düzen) nün handle'nı alır 
i:=GetMenuItemID(ustmenu,13); //Düzen menüsünün Saat/Tarih alt menüsünün identifier'ini döndürür 
SendMessage(whandle,WM_COMMAND,i,0); //ilgili menu item'ına click mesajı gönderir 
//ShowMessage(IntToStr(i)); 
end;
Cevapla