[Delphi] Pliki ...

Dlaczego taki prosty kod: ;-(
var
F:file;
Begin
AssignFile(F,'Project1.exe');
Reset(F,1);
CloseFile(F);
end;

Zwraca mi błąd: I/O Error 32 ? :-[
--Kto pyta nie błądzi ...

Rudy napisał:
Dlaczego taki prosty kod: ;-(
&gtvar
&gtF:file;
&gtBegin
&gtAssignFile(F,'Project1.exe');
&gtReset(F,1);
&gtCloseFile(F);
&gtend;
&gt
&gtZwraca mi błąd: I/O Error 32 ? :-[
&gt

yyyy jesli to jest plik ktory uzywasz to mie mozesz go prawdopodobnie otworzyc--[ Delphi... i wszystko jasne ]

Rudy napisał:
Dlaczego taki prosty kod: ;-(
&gtvar
&gtF:file;
&gtBegin
&gtAssignFile(F,'Project1.exe');
&gtReset(F,1);
&gtCloseFile(F);
&gtend;
&gt
&gtZwraca mi błąd: I/O Error 32 ? :-[
&gt
&gt
&gt--
&gtKto pyta nie błądzi ...
&gt

sproboj tak:
var
F:file;
Begin
AssignFile(F,'Project1.exe');
{$I-}
Reset(F,1);
{$I+}
if IOresult=2 then Rewrite(F);

CloseFile(F);
end;

Działa ??--Umiem troche, ale nie wszystko :) a na koncu i tak BLUE SCREEN

Wiem ,że tak działa bo próbowałem używać {$I-} i {$I+} ,ale gdy chcĘ skopiować coś z pliku np. 40 bajtów z exek'a to to są same kwadracicki po
porównaniu z exekiem :-(
Ale dzięki
--Kto pyta nie błądzi ...