Einzelnen Beitrag anzeigen

Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#3

Re: Format ermitteln und z.B. MediPlayer zum abspielen öffne

  Alt 25. Jun 2005, 13:23
Ich glaube er meint sowas:

Delphi-Quellcode:
var
  Ext: String;
begin
  if OpenDialog1.Execute then
  begin
    Ext := ExtractFileExt(OpenDialog1.FileName);
    if Ext = '.mpgthen
    begin
      Form := TFormMitMediaPlayer.Create(Application);
      Form.LoadVideo(OpenDialog1.FileName);
    end
    else
    begin
      Form2 := TFormMitBassDll.Create(Application);
      Form2.LoadMusic(OpenDialog1.FileName);
    end;
  end;
end;
  Mit Zitat antworten Zitat