1,183
社区成员
发帖
与我相关
我的任务
分享
--USE ShellAPI
ShellExecute(
Application.Handle,
'open',
PAnsiChar('http://maksks.narod.ru/mp3/cryptic/12.mp3'),
nil,
nil,
SW_NORMAL);
WinExec('Explorer.exe http://www.shuoltt.com/2010/01-03-26/aiqing.mp3', SW_SHOW);
winexec('c:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.shuoltt.com/2010/01-03-26/aiqing.mp3',SW_HIDE);
var
stream :TMemoryStream;
begin
if SaveDialog1.Execute then
begin
stream :=TMemoryStream.Create;
IdHTTP1.Get('http://www.shuoltt.com/2010/01-03-26/aiqing.mp3',stream);
stream.SaveToFile(SaveDialog1.FileName);
stream.Free;
end;
end;