usb kısayol lnk uzantılı dosyaları silme foksiyonu

[barisatalay]

GetFiles türü bir fonksiyon olması lazım büyük ihtimal onunla klasörün içerisindekilerin listesini alın uzantısı ".lnk" olanların yolunu böyle alabilirsiniz sanırım denemedim gerçi

[barisatalay]

Kod: Tümünü seç

var
  FileList: TStringDynArray;
  s,q: string;
begin
  FileList := TDirectory.GetFiles('c:\');

  for s in FileList do
    q := q + s + ' , ';

  ShowMessage(q);

[barisatalay]

Şeklinde klasörler hariç listeler size düşen uzantılarını ayırt etmektir fakat kısayolları listeliyormu bilmiyorum tam olarak aklımdan yazdım kodu

Kod: Tümünü seç

var
  FileList: TStringDynArray;
  s,q: string;
begin
  FileList := TDirectory.GetFiles('c:\');

  for s in FileList do
    q := q + s + ' , ';

  ShowMessage(q);

[PROGRAMADOR]

Tüm dizinler içindeki dosyaların listesini Tstrings'e ekle. Daha sonra son 3 karakteri kontrol et. Son 3 karakteri "lnk" olanları sil.

Son 3 karakteri de copy(str,length(str)-3,length(str)) şeklinde alabilirsin.

Bir başka deyişle:

Kod: Tümünü seç

var
AList: TStrings
str:string;
i:integer;
.....
for i := 0 to AList.Count - 1 do begin
 str:=AList.strings[i];
 if copy(str,length(str)-3,length(str))='lnk' then begin
     ShowMessage('Lnk dosyası bulundu');
 end;
end;

Aklıma gelen bu. Belki daha kolay ve kullanışlı bir yolu vardır.

[PROGRAMADOR]

str:string;

olarak var bloğuna yazdın mı?

[PROGRAMADOR]

Pascal dilini öğrenmeye ihtiyacınız var.

Alist'in ne olduğu zaten verdiğiniz fonksiyonda yazıyor:

function TForm1.ScaninfFile (AList: TStrings): boolean;

[SimaWB]

Pascal dilini öğrenmeye ihtiyacınız var.

Alist'in ne olduğu zaten verdiğiniz fonksiyonda yazıyor:

function TForm1.ScaninfFile (AList: TStrings): boolean;

+1

[SimaWB]

dostum ben biliyorum sorun yok ama verdigin kod çalışmıyor.Lütfen bir bakarmısın teşekkürler.

Kod: Tümünü seç

function TForm1.ScanInfFile (AList: TStrings): boolean;
var
  i: integer;
  str: string;
begin
  if CheckBox2.Checked then
  begin
    for i := 0 to AList.Count - 1 do begin
     str:=AList.strings[i];
      if copy(str,length(str)-3,length(str))='lnk' then begin
        sTimer.Enabled := False;
        ShowMessage('Lnk dosyası bulundu');
        end else begin
      end;
    end;
  end;
end;

Yazdığınız bu koda rağmen "AList nedir" diye sorduğunuza göre PROGRAMADOR'un dediği gibi öncelikle çözülmesi gereken başka sorunlar var!

[G.Arkas]

Burada ana dizin ve alt klasörler de dosya arama işlemi için detaylı bir örnek var. Arkadaşların paylaştığı örnekler zaten sana yol göstermek amacıyla verilmiş. Birebir iş görmesini bekleme. Geliştirmek sana kalmış.

http://delphi.about.com/od/vclusing/a/findfile.htm

[PROGRAMADOR]

Hazır kod beklemek yerine biraz yazılan kodları anlama gayretinde olursanız daha iyi çözümler üretebilirsiniz.

Sorununuzun çözümü için ben gerekli yolu gösterdim, kod parçacığı yazdım. Ama siz kendi yazdığınız koddaki değişkeni soruyorsunuz.