[Delphi] Jak urchomić program...

Jak po naciśnieciu pliku filmowego w windowsie i uprzednim skojarzeniu go z moim programem, program się uruchomił otwierając automatycznie plik i zaczął odtwarzać go...?????

Wstarczy ze w OnCreate dasz cos takiego:

if ParamStr(1) '' then //tu powinno byc rozne ale nie wyswietla sie :)
begin
MediaPlayer1.FileName := ParamStr(1);
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

No i tak to powinno wygladac :-) Nie wiem czy nie pomieszalem z ParamStr wlasnie nie pamietam czy 1 to byla wlasnie sciezka pliku ale raczej powinna :-)

--
pozdrawiam PEDROS

Kanal: #4programmers
WEJSCIE OBOWIAZKOWE

Otium sine litteris mors est et hominis vivi sepultura
Seneka

a moze
if length(ParamStr(1)) > 0 then
begin
MediaPlayer1.FileName := ParamStr(1);
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

a po co length?

if ParamCount > 0 then
begin
MediaPlayer1.FileName := ParamStr(1);
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

Pisałem z pamięci ale powinnło działać

--
Najpierw wypróbuj wszystkie możliwości potem pytaj;)