Sadece Metin | Görüntüler ve Metin

Picproje Elektronik Sitesi

PROGRAMLAMA DİLLERİ => Delphi => Konuyu başlatan: z - 21 Aralık 2005, 11:32:35

Başlık: Çalışan program hdd'de kendi exe uzunluğunu nasıl öğr
Gönderen: z - 21 Aralık 2005, 11:32:35
Çalışan bir program, kendisinin hdd üzerinde kaç byte yer kapladığını nasıl öğrenir.
Başlık: Çalışan program hdd'de kendi exe uzunluğunu nasıl öğrenir?
Gönderen: birumher - 21 Aralık 2005, 13:41:48
Kod Seç

procedure TForm1.Button1Click(Sender: TObject);
var
 aStream: TFileStream;
begin
 aStream := TFileStream.Create(Application.ExeName,fmOpenRead or fmShareDenyNone);
 ShowMessage(intToStr(aStream.size));
 aStream.Free;
end;


İşin sırrı fmShareDenyNone ile dosyayı açmakta...
Sadece Metin | Görüntüler ve Metin