2013-10-24 42 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

這正是我一直在尋找對於!謝謝你的貢獻,這節省了我幾個小時:) –