Indetectables

Les dejo la traduccion de la funcion que publico blau para quitar el cartelito cuando te descargar un archivo de internet les dejo el link original https://indetectables.net/viewtopic.php?f=93&t=54384
en este caso sera la version en Delphi 7 como siempre

uses
  SysUtils;

Function removeZoneID(const sFileName:string):boolean;
begin
  Result:=DeleteFile(sFileName+':Zone.Identifier');
end;

begin
  Writeln(removeZoneID('C:\Users\1\Downloads\Ejectuable.exe'));
  Readln;
end.

¡Gracias por portarlo!