title image


Smiley Re: ALT+'D'+'u' (Speichern unter) an Fremdprogramm ?
Hi,ich weiß nicht, wieso, aber zumindest bei mir klappt das Systemmenü mit SendMessage nicht. Ich mache das stattdessen so:procedure TForm1.Button1Click(Sender: TObject);var hn : hWnd;        vk1,vk2 : UINT;begin  hn := FindWindow('notepad',nil);  if hn 0 then    begin      SetForeGroundWindow(hn);      vk1 := MapVirtualKey(VK_MENU,0);      vk2 := MapvirtualKey($44,0);      keybd_event(VK_MENU,vk1,0,0); //ALT drücken       keybd_event($44,vk2,0,0); //d drücken       keybd_event(VK_MENU,vk1,keyeventf_keyup,0);//nun beide loslassen       keybd_event($44,vk2,keyeventf_keyup,0);      vk1 := MapVirtualKey($55,0); //nun das Ganze mit u       keybd_event($55,vk1,0,0);      keybd_event($55,vk1,keyeventf_keyup,0);    end  else    showmessage('Fenster nicht gefunden');end;HthDeddy
Gruß Deddy
Wenn Dein Programm nicht läuft, vergib die Versionsnummer 1.0

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: