Media Player???
Quais os parametros que devo passar, pelo Delphi, para executar o Media Player, através do WinExec?
Tentei este:
WinExec(PCHAR(´C:\Arquivos de programas\Windows Media Player\WMPLAYER.EXE ´+nome),SW_SHOWNORMAL);
Ele carrega o programa, porém, não abre a música designada pela variável NOME.
Desde já agradeço a ajuda
Até +
Jairo Norenberg
Tentei este:
WinExec(PCHAR(´C:\Arquivos de programas\Windows Media Player\WMPLAYER.EXE ´+nome),SW_SHOWNORMAL);
Ele carrega o programa, porém, não abre a música designada pela variável NOME.
Desde já agradeço a ajuda
Até +
Jairo Norenberg
Anonymous
Curtidas 0
Respostas
Navoid
17/02/2003
qdo existe espaço em branco no path uses aspas duplas assim
****
WinExec(PCHAR(´´C:\Arquivos de programas\Windows Media Player\WMPLAYER.EXE´ ´´+nome+´´´),SW_SHOWNORMAL);
****
até
****
WinExec(PCHAR(´´C:\Arquivos de programas\Windows Media Player\WMPLAYER.EXE´ ´´+nome+´´´),SW_SHOWNORMAL);
****
até
GOSTEI 0
Anonymous
17/02/2003
Navoid
Sua dica funcionou.
Grato
Até +
Sua dica funcionou.
Grato
Até +
GOSTEI 0
Joefferson
17/02/2003
[quote:4f13d833f0=´Jairo Norenberg´]Navoid
Sua dica funcionou.
Grato
Até +[/quote:4f13d833f0]
vc tb poderia ter utilizado o seguinte:
procedure TForm1.Button1Click(Sender: TObject);
var
FileName: String;
begin
ShellExecute(Self.Handle,´Open´,PChar(FileName),nil,nil,SW_SHOWNORMAL)
end;
Nao esquecer de declarar em uses ShellApi.
Valew!!!
Sua dica funcionou.
Grato
Até +[/quote:4f13d833f0]
vc tb poderia ter utilizado o seguinte:
procedure TForm1.Button1Click(Sender: TObject);
var
FileName: String;
begin
ShellExecute(Self.Handle,´Open´,PChar(FileName),nil,nil,SW_SHOWNORMAL)
end;
Nao esquecer de declarar em uses ShellApi.
Valew!!!
GOSTEI 0