不用控件.
解决方案 »
- 求DEVEXPRESS FOR D6的安装版
- file not found XPMenu.dcu
- 简单问题 急 大家帮忙
- 用盗版的Delphi7开发程序应该承担什么责任?
- 很棘手的问题(剪切板)
- 请教各位!如何判断一个字符串中是否有另一个子串!比如: "某年某月某日"中是否有'年'这个子串呢?
- 下面的查询语句怎么会死循环呢?帮忙看看。另外指导一下这样子的语句是不是效率不高,如何改善,高分。
- 获得驱动器问题002
- 兴奋~收到borland公司的邀请涵,散分!
- 请大家指点一二
- 有谁用DELPHI开发过网络编程,也就很简单的,把一个文件发送到指定的主机上去,并从指定的主机上收取文件。有谁编过没!
- 为什么会出错,MOVE....
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; function DoFileDownload(lpszFile:String):Integer;stdcall; external 'shdocvw.dll' name 'DoFileDownload';var
Form1: TForm1;implementation{$R *.dfm}function ToUnicode(const aWideStr: WideString): string;
var
sUnicodeHex: string;
i : integer;
begin
for i := 1 to Length(aWideStr) do
begin
sUnicodeHex := Format('%.4x', [Word(aWideStr[i])]);
sUnicodeHex := Chr(StrToInt('$' + Copy(sUnicodeHex, 3, 2))) +
Chr(StrToInt('$' + copy(sUnicodeHex, 1, 2)));
Result := Result + sUnicodeHex;
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
DoFileDownload(ToUnicode('http://qdlxj.8u8.com/12.wma'));
end;end.