Tastenkombination für ein Programm simulieren

[KyroxX]

Moin

Ich bin dabei ein kleines Programm zu schreiben, welches mir

1. Ein Programm startet:

ShellExecute(0,Nil,PChar('C:\Programme\Rechner.exe'),Pchar(''),Pchar('C:\Programme\'),SW_NORMAL); und

2. In DIESEM gestarteten Programm eine Tastenkombination ausführt.

Bei diesem Punkt komm ich irgendwie nicht weiter.
Ich weis zwar das ich irgendwie mit:

sendmessage (hwnd, cm_command, ID, 0); arbeiten muss, aber wie soll das genau funktionieren?
Ich bekomm nur errors ^^

Muss ich das handle des Fensters haben?!

[Leuselator]

Nicht ganz sicher, aber versuch mal:

Delphi-Quellcode:

procedure MachIrgendwas;
var DasHandle : HWND;
begin
  DasHandle := ShellExecute(0,Nil,PChar('C:\Programme\Rechner.exe'),Pchar(''),Pchar('C:\Programme\'),SW_NORMAL); 
  SendMessage(DasHandle, cm_command, ID, 0); 
end;

[Luckie]

Shellexecute liefert kein Handle zurück.

@KyroxX: Was soll diese Tastenkombination denn bewirken?

BTW. ich sehe gerade: http://www.delphi-groups.de/YaBBSe/i...threadid=17498

[SirThornberry]

Hab in den Anhang mal ne Komponente gestopft die eine Anwendung startet und dann mit einem handle auf dieses fenster weiterarbeitet. Der Erfolg hängt allerdings vom Betriebssystem und dem zu startenden Programm ab. Bei Winzip klappts so weit ich weiß nicht da das handle in dem fall aufs lizensfenster zeigt und dieses ja dann verschwindet... Kannst ja mal posten ob der source der komponente da was gebracht hat oder nicht. bezüglich des sendmessage kann man ja bissl schwer helfen da du nicht geschrieben hast was gesendet werden soll oder ich habs übersehen

[himitsu]

Eine weitere Möglichkeit besteht darin Tastaturereignisse zu simulieren. (siehe DL)

Diese werden dann natürlich an die Anwendung gesendet, die auch den Eingabefokus besitzt.

Eine Prozedur um eventuell die gewünschte Anwendung zu aktivieren ist auch mit dabei.


Wie man ans Handle einer Anwendung kommt steht schon im Forum.

[KyroxX]

Ah THX

Jetzt funzt alles *gg*
fast *gggg*

Ich hab nur noch nen miniproblem:

Deine nette Unit (due ultracool ist) unterstützt kein ALT oder SHIFT ?!
Vielleicht bin ich auch blind ^^

Jedenfalls hab ich mal ALT hinzugefügt und die Checksumme auf 42 gesetzt.
Alles wunderbar nur der reagiert nicht ^^ *gg*

:p

hinzugefügter code:
"(Name:'ALT'; VKey:VK_LBUTTON),"

Hmm hast du ne Idee?

P.s.: MegaTHX für die Codes!

[himitsu]

Schau mal in Zeile 30...

Bsp.:
'+abc' = Abc
'+(abc) = ABC

[KyroxX]

*oh* LOOL
Danke *gg*