|
|
@@ -41,8 +41,6 @@ procedure TMessageCentreForm.chrm1DownloadUpdated(Sender: TObject;
|
|
|
begin
|
|
|
if (downloadItem.IsComplete) and (MessageBox(Handle, '文件下载完成,是否打开文件所在目录? ', '提示', MB_OKCANCEL + MB_ICONQUESTION) = ID_OK) then
|
|
|
begin
|
|
|
-// MessageBox(Handle, PChar('文件下载完成,是否打开文件所在目录'), PChar('文件下载'), )
|
|
|
-// ShowMessage(Format('"%s"已经下载完成', [downloadItem.SuggestedFileName]));
|
|
|
ExploreFile(downloadItem.FullPath);
|
|
|
end;
|
|
|
end;
|