try
messageDlg('在批量增加前請關閉所有EXCEL表!',mtWarning,[mbok],0);
ExcelApp:=CreateOleObject('Excel.Application');
MyWorkBook:=CreateOleobject('Excel.Sheet');
openDialog1.DefaultExt:= '.xls';
openDialog1.Filter:= 'Excel檔案|*.xls|所有檔案|*.*';
except
application.Messagebox('無法打開Xls檔案請確認已經安裝EXCEL.','',mb_OK+mb_IconStop);
Exit;
end;
xp、win7下都可以過濾出execl檔案，可是在win10下，選所有檔案都看不到任何檔案，只能看到檔案夾。
uj5u.com熱心網友回復：
不知道你怎么用opendialog的。uj5u.com熱心網友回復：
需要try
// ...
if OpenDialog1.Execute then
begin
// ...
end;
except
// ...
end;
uj5u.com熱心網友回復：
if OpenDialog1.Execute thenbegin
try
except
end
end
xp和win7下正常，win10下看不到檔案
uj5u.com熱心網友回復：
打開檔案對話框沒顯示？uj5u.com熱心網友回復：
打開檔案對話框就顯示檔案夾，不能顯示檔案，我直接把過濾去掉，都顯示了uj5u.com熱心網友回復：
感覺好像是*.*無效似的轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/15909.html
標籤：VCL組件開發及應用
上一篇：delphi逆向支持