diff options
| -rw-r--r-- | packages/winunits-base/src/winutils.pp | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/packages/winunits-base/src/winutils.pp b/packages/winunits-base/src/winutils.pp index bb6c4b3d35..ddfad409b7 100644 --- a/packages/winunits-base/src/winutils.pp +++ b/packages/winunits-base/src/winutils.pp @@ -13,7 +13,7 @@ **********************************************************************} -{$mode objfpc} +{$mode objfpc}{$H+} unit winutils; Interface @@ -24,6 +24,9 @@ Uses Windows; // From Delphi.about.com with permission, http://delphi.about.com/od/delphitips2007/qt/is_win_admin.htm function IsWindowsAdmin: Boolean; +// Removes Browsers "downloaded" attribute from a file. +procedure UnBlockFile(const name:String); + implementation const @@ -79,4 +82,13 @@ begin end; end; +procedure UnBlockFile(const name:String); +var f : file; +begin + assignfile(f,name+':Zone.Identifier'); + rewrite(f,1); + truncate(f); + closefile(f); +end; + end. |