Koliko me sluzi secanje u TPascalu ide nekako ovako:
Code:
Var
f: file;
begin
Assign(f, 'c:\prg.exe');
FileMode:= 2;
Reset(f);
// Za kretanje kroz fajl, citanje i pisanje
Seek(...)
BlockRead( ... )
BlockWrite( ...)
Close(f);
end;
Pogledaj help za date funkcije. Ako pokusavas da program otvori samog sebe, to ces moci samo u rezimu za citanje, a ne i za pisanje
[Ovu poruku je menjao morlic dana 12.01.2007. u 01:22 GMT+1]