Problema al eliminar un archivo con funcion Deletefile

[Ñuño Martínez]

Lo de los enlaces no lo sé, la verdad, siempre ha sido muy confuso para mi, pero tengo que decirte que hay un error gordísimo en tu código, ¡y es que no destruyes los TStringList! Recuerda que Pascal no tiene colector de basuras, así que cada vez que ejecutes ese método te quitará un poco de memoria que nunca recuperarás hasta que no cierres el programa.

[WPascal]

Empezado por Ñuño Martínez

Lo de los enlaces no lo sé, la verdad, siempre ha sido muy confuso para mi, pero tengo que decirte que hay un error gordísimo en tu código, ¡y es que no destruyes los TStringList! Recuerda que Pascal no tiene colector de basuras, así que cada vez que ejecutes ese método te quitará un poco de memoria que nunca recuperarás hasta que no cierres el programa.

Hola,gracias por la respuesta, ya incluí la liberacion del los dos stringlist, pero aun no me funciona quedaría:

.
.
.

Código Delphi [-]
try
  for i:=0 to a.InstanceSize-1 do
  begin
    x:=Unidad+':\'+a[i];
    SetFileAttributes (PChar(x), FILE_ATTRIBUTE_NORMAL)
  end;
  for i:=0 to b.Count-1 do
  begin
    deleteFile(PChar(Unidad+':\'+b.strings[i]));
  end;
  except
    ShowMessage('listo!');
  end;
  a.Free; b.Free;   //Aqui libero los SL
end;
end.

[ecfisa]

Hola WPascal.

Probá de esta manera:

Código Delphi [-]
(* Descubre archivos, carpetas ocultos y elimina archivos .LNK. Devuelve nombres en TS *)
procedure MuestraYSacaLNK(const Ruta: string; TS: TStrings);
var
  SR: TSearchRec;
begin
  if FindFirst(Ruta+'*.*', $FF, SR) = 0 then
  begin
    repeat
      SetFileAttributes(PChar(SR.Name), FILE_ATTRIBUTE_NORMAL);
      if UpperCase(ExtractFileExt(SR.Name)) = '.LNK' then
        DeleteFile(Ruta + SR.Name)
      else if(SR.Name <> '.')and(SR.Name<>'..') then
        TS.Add(SR.Name)
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

Llamada:

Código Delphi [-]
begin
  Memo1.Clear;
  MuestraYSacaLNK('C:\TU_RUTA\', Memo1.Lines);
end;

Saludos.

[WPascal]

Empezado por ecfisa

Hola WPascal.

Probá de esta manera:

Código Delphi [-]
(* Descubre archivos, carpetas ocultos y elimina archivos .LNK. Devuelve nombres en TS *)
procedure MuestraYSacaLNK(const Ruta: string; TS: TStrings);
var
SR: TSearchRec;
begin


Saludos.

ok, ya pruebo, saludos

[WPascal]

Hola Ecfisa, cogí una parte del código que me recomendaste y lo metí en el segundo procedure listar2 y ya me resultó.
El codigo quedó así:

Código Delphi [-]
 
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl, StrUtils;
type
  TFPrincipal = class(TForm)
    Button1: TButton;
    Disco: TDriveComboBox;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  FPrincipal: TFPrincipal;
implementation
{$R *.dfm}
procedure listar1( sDirectorio: string; var Resultado1: TStringList );
//hay que especificar el directorio y crear el stringlist
var
  Busqueda: TSearchRec;
  iResultado: Integer;
begin
  iResultado :=  FindFirst( sDirectorio+':\'+'*.*', faAnyFile, Busqueda );
  while iResultado = 0 do
  begin
    if (busqueda.Attr=FaDirectory+FaHidden) or (busqueda.Attr=FaHidden) then{  (busqueda.Attr=FaDirectory) }
      begin
        Resultado1.Add(busqueda.Name);
      end;
      iResultado := FindNext( Busqueda );
  end;
  FindClose( Busqueda );
end;
procedure listar2( sDirectorio: string; var Resultado2: TStringList );
var
  Busqueda: TSearchRec;
  iResultado: Integer;
begin
  iResultado :=  FindFirst( sDirectorio+':\'+ '*.lnk', faArchive, Busqueda );
  while iResultado = 0 do
  begin
    if busqueda.Attr=faArchive  then
    begin
      if UpperCase(ExtractFileExt(Busqueda.name)) = '.LNK' then
      DeleteFile(sDirectorio+':\' + Busqueda.Name)
    end;
    iResultado := FindNext( Busqueda );
  end;
  FindClose( Busqueda);
end;

procedure TFPrincipal.Button1Click(Sender: TObject);
var
a,b:Tstringlist;
i:integer; Unidad,x:String; Eli:Boolean;
begin
  Unidad:=Disco.Drive;
  a:=TstringList.Create; b:=TStringList.Create;
  listar1(Unidad,a);
  listar2(Unidad,b);

  try
  for i:=0 to a.InstanceSize-1 do
  begin
    x:=Unidad+':\'+a[i];
    SetFileAttributes (PChar(x), FILE_ATTRIBUTE_NORMAL)
  end;
  except
    ShowMessage('listo!');
  end;
  a.Free; b.Free;
end;
end.

La verdad es que me salió de suerte pues apenas estoy empezando a aprender el manejo de archivos.
Gracias nuevamente Ecfisa por tus efectivas soluciones.
Saludos y que estés bien.

[ecfisa]

Me olvidaba... Si necesitas que el resultado resida en un TStringList, sería:

Código Delphi [-]
var
  TStr: TStrings;
begin
  TStr:= TStringList.Create;
  try
    MuestraYSacaLNK('C:\TEMPORAL\',TStr);
    // Operaciones que desees
    //...
  finally
    TStr.Free;
  end;

Saludos.