2013-10-24 43 views

回答

5

还有就是创新安装文档中的代码示例(请参阅“帕斯卡尔脚本”,“支持功能参考”,“对话功能” - 你就可以开始here):

var 
    FileName: string; 
begin 
    // Set the initial filename 
    FileName := ''; 
    if GetOpenFileName('', FileName, '', 
    'Text Documents (*.txt)|*.txt|All Files|*.*', 'txt') then 
    begin 
    // Successful; user clicked OK 
    // Filename contains the selected filename 
    end; 
end; 
+1

这正是我一直在寻找对于!谢谢你的贡献,这节省了我几个小时:) –