Fehlermeldung bei Aufruf von WMP1:TWindowsMediaPlayer;

[shmia]

Ganz offensichtlich sind in der DLL eine oder mehrere CoKlassen enthalten,
die nicht auf jedem Rechner installiert sind.
Mit folgender Funktion kann man prüfen, ob so eine CoClass vorhanden ist:

Delphi-Quellcode:

function ProgIDExists(const ProgID:WideString):Boolean;
var
   tmp : TGUID;
begin
   Result := Succeeded(CLSIDFromProgID(PWideChar(ProgID), tmp));
end;

Anwendungsbeispiel:

Delphi-Quellcode:

   if ProgIDExists('Word.Application') then
      ShowMessage('WinWord ist installiert');
   // die ProgID, die hier folgt habe ich erfunden
   // du musst die richtige ProgID einsetzen
   if not ProgIDExists('Mediaplayer.Application') then
   begin
      ShowMessage('Mediaplayer 10 ist NICHT installiert');
      application.terminate;
      Exit;
   end;

[edit=SirThornberry]Delphitags korrigiert - Mfg, SirThornberry[/edit]