[ milos_silni @ 11.01.2007. 22:29 ] @
1. Kako da otvorim exe file u Tpascalu za binarno citanje i pisanje
Probao sam sa pretrazivanjem ali nisam nasao odgovor!!!
poz
[ savkic @ 11.01.2007. 23:14 ] @
> 1. Kako da otvorim exe file u Tpascalu za binarno citanje i pisanje

Code:

var
  s: TFileStream;
begin
  s := TFileStream.Create(FileName, fmOpenReadWrite or fmShareDenyNone);
  try
    ...
  finally
    s.Free;
  end;
end;

[ morlic @ 12.01.2007. 00:04 ] @
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]