... das funktioniert bei Apps ohne ControlBar sehr gut.. aber wenn ich nun ne ControlBar drin hab, gehts nimmer. Ich hab mir mal die
Unit sndkeys32 eingebunden, die diese Tastenkombinationen vereinfachen soll, aber irgendwie werd ich nicht schlau draus und bekomms nicht zu laufen.
Die Zeile
SendKeys('^P',true);
soll die Kombi CTRL+P (drucken) simulieren, aber haut irgendwie nicht hin... hier mal mein bisheriger Testcode um ne Outlook Mail auszudrucken per CTRL+P (da ich den vorherigen Tip hier nicht nutzen kann.. wegen ControlBar )
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
target: HWND;
begin
target := FindWindow('rctrl_rewnd32', nil);
if target <> 0 then
begin
showmessage('habs gefunden');
SendKeys('^P',true);
end
else
begin
showmessage('nicht gefunden');
end;
end;
end.
Kann mir jemand einen Tip geben ?
Gruß,
Dirk