SendMessage med VK_MENU

Hejsa

Jeg har brug for en stump kode der sender ALT+F9 til et vindue, og det skal være via SendMessage (ie. ikke keybd_event el. lign.). Jeg har prøvet med følgende:

procedure TForm1.Button1Click(Sender: TObject);
var win: HWnd;
begin
  Win := HWndGet(Edit1.Text);
  SendMessage(Win, WM_KEYDOWN, VK_MENU, 0);
  SendMessage(Win, WM_KEYDOWN, VK_F9, 0);
  SendMessage(Win, WM_KEYUP, VK_F9, 0);
  SendMessage(Win, WM_KEYUP, VK_MENU, 0);
end;

Det virker bare ikke. Applikationen jeg forsøger at sende til "modtager" kun F9, men uden ALT... Jeg har også forsøgt med ALT+F for at aktivere "Filer" menuen i notepad, men det virker heller ikke. Bruger jeg derimod keybd_event så fungerer det fint, men den "trykker" jo tasten ned globalt... Det her må kun være for det enkelte vindue, da det er noget multi-user halløj.

Håber nogen kan hjælpe
Martin Kruse Jensen