selam arkadaşlar
basit birşey oldugunu biliyorum ama aklımada fazla bişey aklıma acıkcası
şimdi ben programımda belirli bir dizinde olan exe'yi arattırmak istiyorum.
örnek olarak vericeksek olursak
formumdaki button1'e basıyorum diyelim ve c:\selam.exe diye bir program varsa program bulundu desin bulunamadıysa bulunamadı desin
bunun gbi bişey istiyorum ama yapamıyorum. sizin yardımınıza ihtiyacım var
dosya varmı, yokmu kontrolü
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Merhaba,
Yukarıdaki kod parçacığı ile C:\WINDOWS\ugur.txt adında bir dosya varmı onun kontrolünü yapmış oluyoruz. Çok basit bir mantığı var yani.
fileExists komutu ile bu kontrol sağlanmış oluyor.
index:=(dosya kontrolü)
Saygılarımla
Kolay gelsin.
Kod: Tümünü seç
var
a:tdate;
b:string;
begin
a:=date;
if not fileExists('C:\WINDOWS\ugur.txt)then
begin
//yapılmasını istediğniz işlemler...
end;
end;
fileExists komutu ile bu kontrol sağlanmış oluyor.
index:=(dosya kontrolü)
Saygılarımla
Kolay gelsin.
En son pro_imaj tarafından 15 Eki 2005 01:05 tarihinde düzenlendi, toplamda 2 kere düzenlendi.
Gün gelecek, dilleri, elleri ve ayakları yapmış oldukları bütün kötülükleri tek tek bildirerek aleyhlerinde şahitlik edecektir. [Nur Suresi 24]
_________________
_________________
Merhaba,
Aşağıdaki kodu yazabilirsiniz.
Kolay gelsin.
Aşağıdaki kodu yazabilirsiniz.
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
begin
if fileexists('c:\silstoklar.xml') then
showmessage('Dosya var')
else showmessage('Belirttiğiniz yolda dosya yok');
end;
Sanırım butonun oncilick olayına aşağıdaki kodları yazarsan işini görür ama denemedim emin deilim.
kolay gelsin...
Kod: Tümünü seç
if not directoryexists('C:\prog.exe') then
showmessage('Dosya bulunamadı')
else showmessage('Dosya bulundu');