1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure Senden;
begin
   hOE:=FindWindow(nil,'unbenannt - editor');//Finde das Fenster
   ShowWindow(hOE,SW_SHOWNORMAL);
   SetForegroundWindow(hOE);// Bringe Editor in den Vordergrund
   keybd_event($11,0,0,0);//Taste Alt drücken
   keybd_event(68,0,0,0);//Taste d drücken
   keybd_event(68,0,KEYEVENTF_KEYUP,0);//Taste d loslassen
   keybd_event($11,0,KEYEVENTF_KEYUP,0);//Taste Alt loslassen
end;