【文件属性】:
文件名称:inno 程序安装时显示目标磁盘的剩余空间.doc
文件大小:732KB
文件格式:DOC
更新时间:2015-12-27 16:43:14
inno 磁盘剩余空间
INNO脚本代码:
[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
[Files]
Source: "MyProg.exe"; DestDir: "{app}"
Source: "Readme.txt"; DestDir: "{app}"
[Code]
var
freespacelabel: TLabel;
FreeSpace, TotalSpace: Cardinal;
procedure ShowFreeSpaceOnDisc(Sender: TObject);
begin
GetSpaceOnDisk(ExtractFileDrive(WizardForm.DirEdit.Text), True, FreeSpace, TotalSpace);
freespacelabel.Caption:= '磁盘可用空间: ' + IntToStr(FreeSpace) + ' MB。';
end;
网友评论
- 很好用,可以了
- 虽然不是很详细,可用