显示问题

Question

我每备份一个文件，要把说明写到readme.txt文件里一次，在readme.txt文件里格式是这样的：2007-04-30-09-01-10 然后换行写说明。备份的文件夹的名字格式：“中国，2007-04-30 09-01-10，奥运”。
请问怎么样写才能实现 我把鼠标放到这个文件夹（中国，2007-04-30 09-01-10，奥运）上，readme.txt文件里相应的说明也就显示出来那？

Answer 1

上面的问题解决了。
问个其他的问题，怎么样得到硬盘的剩余空间大小
我查了下也就看到这两种方式，方式一，得到的空间大小不对啊
方式二，DELPHI帮助里面的程序啊，可是Total := DiskSize(0);一直为0，什么原因啊？
方式一：
procedure TForm1.ComboBox1Change(Sender: TObject);
var
    driver:pchar;
    disktotal,diskfree,cl1,cl2,sec1,byt1:longword;
        
begin
driver:='E:\';
 Getdiskfreespace(driver,sec1,byt1,cl1,cl2);//获取磁盘信息
    Diskfree:=cl1*sec1*byt1;// div   1024  div   1024;//剩余容量=剩余簇数*每簇扇区数*每扇区字节数
    disktotal:=cl2*sec1*byt1;//总容量=磁盘总簇数*每簇扇区数*每扇区字节数
    edit2.text:=formatfloat('###,##0',disktotal);
   edit3.text:=formatfloat('###,##0',diskfree);
end;
方式二：
procedure TForm1.Button3Click(Sender: TObject);
var
  S: string;
  AmtFree: Int64;
  Total:   Int64;
begin
  AmtFree := DiskFree(0);
  Total := DiskSize(0);
  S := IntToStr( AmtFree div Total ) + 'percent of the space on drive 0 is free: ' (AmtFree div 1024) + ' Kbytes free. ';
  Label1.Caption := S;

Answer 2

>>S := IntToStr( AmtFree div Total ) + 'percent of 这个求百分比, 一个小的值 整除 大的值,如1 div 10 ,结果当然是 0了,这里应该用 /  而不是div 

Answer 3

Total := DiskSize(0);
这个值跟踪就是等0。
是什么原因？