Hi
Ich versuche über FindWindow ein Programm zu finden, das funktioniert soweit auch, jedoch geht das schicken von zeichen nicht richtig wenn ich diese an den Audio Mid Recorder sende, wenn ich aber zb F4 an den Arbeitsplatz sende funktioniert dies.
ich will über die HotKeys den Recorder Steuern...
www.audio-recorders.net/
das is mein code...
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
| procedure TForm1.Button1Click(Sender: TObject);
var aHandle: THandle;
begin
aHandle:=FindWindow(nil,pchar('Audio Mid Recorder - Runtime'));
if aHandle <> 0 then
begin
showmessage('gefunden');
PostMessage(aHandle, WM_KEYDOWN, VK_LCONTROL, 0);
PostMessage(aHandle, WM_KEYDOWN, VK_F4, 0);
PostMessage(aHandle, WM_KEYUP , VK_F4, 0);
PostMessage(aHandle, WM_KEYUP , VK_LCONTROL , 0);
end else
showmessage('nicht gefunden');
end; |
mfg. Killmag10
