Hallo Zusammen,
mit folgender Prozedur möchte ich die Abspielposition von Winamp abfragen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
WindowHandle := FindWindow( 'Winamp v1.x', nil);
Edit1.Text:=IntToStr( SendMessage( WindowHandle, WM_WA_IPC, 0 , PC_GETOUTPUTTIME ) );
end;
Das funktioniert soweit auch, nur das Programmfenster "friert" ein. Ich kann
zwar noch den Button anklicken und der Wert im Edit-Feld wird akualisiert,
aber das Fenster lässt sich nicht mehr verscieben und auch nicht über den
x-Button beenden. Wenn ich zu einem anderen Fenster wechsle und zu meinem
Programm zurückwechsle wird es nicht mehr angezeigt. Wenn ich es dann über
Rechtsklick auf das Taskleisten Symbol beende erhalte ich folgenden Fehler:
"Im Projekt Projekt1.exe ist eine
Exception der Klasse EOSError aufgetreten.
Meldung: 'Systemfehler. Code: 5. Zugriff verweigert' [...] "
MfG Schneider-Huetter