[Delphi] Rozmiar pliku

mam taki kod
var rozmiarwstringu : string begin [B]nazwa := edit1.Text; [/B] AssignFile(plik,nazwa); Reset(plik); rozmiar := FileSize(plik); CloseFile(plik); rozmiarwstringu := inttostr(rozmiar div 1024); label2.caption := rozmiarwstringu + ' KB.';
jak zrobic aby w zmiennej nazwa znalazl sie plik z zasobow??
//edit => chodzi o delphi :/
Użytkownik maros edytował ten post 01 styczeń 2006, 01:19

---

Chcesz wypakować plik z zasobów czy jak? Umiesz go tam wrzucić?
plik.rc:PLIK RCDATA "plik.exe"kompilujesz go w ten sposób: [b]brcc32 plik.rc[/code]
w pliku.pas:{$R plik.res} // ... teraz zapis pliku z zasobów na dysk: procedure TForm1.Button1Click(Sender: TObject); var Res:TResourceStream; begin Res:=TResourceStream.Create(hInstance,'plik',RT_RCDATA); Res.SaveToFile('plik.exe'); Res.Free; end;
Użytkownik Cyrkiel edytował ten post 01 styczeń 2006, 12:42
ja to wiem ale chodi mi oto zeby sprawdzic wielkos tego pliku ktory jest w zasobach


ja to wiem ale chodi mi oto zeby sprawdzic wielkos tego pliku ktory jest w zasobach

---

ja to wiem ale chodi mi oto zeby sprawdzic wielkos tego pliku ktory jest w zasobach

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl