* Unblockfile to programmatically unblock MSIE downloads

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@23372 3ad0048d-3df7-0310-abae-a5850022a9f2

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.