Cover-Anzeige für WMP Programmieren

[LukasB]

Servus Luckie,

danke schon mal für deine schnelle Antwort.
Das mit dem Timer hab ich mir auch schon überlegt, nur weiß ich nicht, wie ich eine Prozedur darauf ansprechen lasse.
mit ständig aktualisieren meine ich zeitlich lang, halt so lang Musik abgespielt wird.
Ich hatte eigentlich folgende Struktur im Kopf, aber wahrscheinlich zu sehr C-Denke:

unit

interface

var ....

prozedure wait(sec);
prozedure writeMetaData();
prozedure showCover();

sec = 10;
while true do
begin
writeMetadata();
showCover();
wait();
end;

end.

Das soll nur Struktur-Code sein
Aber sowas geht dann wohl nicht wenn du den Time vorschlägst, oder?
Die wait habe ich hier aus dem Forum genommen, war glaube ich sogar eine Antwort auf einen Poste von dir:

procedure Delay(Milliseconds: Integer);
var
Tick: DWord;
Event: THandle;
begin
Event := CreateEvent(nil, False, False, nil);
try
Tick := GetTickCount + DWord(Milliseconds);
while (Milliseconds > 0) and
(MsgWaitForMultipleObjects(1, Event, False, Milliseconds, QS_ALLINPUT) <> WAIT_TIMEOUT) do
begin
Application.ProcessMessages;
if Application.Terminated then Exit;
Milliseconds := Tick - GetTickcount;
end;
finally
CloseHandle(Event);
end;
end;

Kann man die irgenwie hernehmen? Dann bräuchte ich aber wieder die while und hätte das gleiche Problem.....
Hoffe du kannst mir weiterhelfen

Lukas