Merhabalar
Muharrem Bey yardımlarınız için çok teşekkür ederim. Sizin yönlendirmeniz sayesinde sorumun cevabını buldum.. :lol: :lol: :lol:
Kod:
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
whandle:hwnd;
menucub,ustmenu:hwnd;
begin
whandle:=FindWindow('Notepad',nil ...