Registriert seit: 21. Aug 2003
7.332 Beiträge
Delphi 2009 Professional
|
Re: Format ermitteln und z.B. MediPlayer zum abspielen öffne
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 = '.mpg' then
begin
Form := TFormMitMediaPlayer.Create(Application);
Form.LoadVideo(OpenDialog1.FileName);
end
else
begin
Form2 := TFormMitBassDll.Create(Application);
Form2.LoadMusic(OpenDialog1.FileName);
end;
end;
end;
|