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;