谢谢了,急!
解决方案 »
- ADO异地连接问题。。。
- 结交哈尔滨delphi开发方面的朋友
- so简单的问题,我不会
- 如何统计出memo里面的行数?
- 工作的选择,给点建议!
- 关于database的params设置的问题!(waiting on line......)
- 如何测试ADOconnection连接数据库时是否连接成功?
- TreeView与数据库中表中的数据关联如何处理〉?
- ***********为什么大家这么清高,连250分都不想拿,那么我这分要仍掉啦!
- idftp 登陆
- 请问哪儿能找到sample下控件的帮助?主要是TShellTreeview和TShellListView的。
- 鼠标显示的问题:怎么在程序运行时,鼠标的显示图形不是系统规定的TCursor中的图形,而是自己导入的图形,小的动画等。
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ShellCtrls, IdGlobal;//加入最后这个单元type
TForm1 = class(TForm)
ShellListView1: TShellListView;
btn1: TButton;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);
var FileSize:integer;
begin
if not ShellListView1.SelectedFolder.IsFolder then
begin
FileSize:=FileSizeByName(ShellListView1.SelectedFolder.PathName);
ShowMessage(IntToStr(FileSize));
end;
end;end.