1. Kako da otvorim exe file u Tpascalu za binarno citanje i pisanje
Probao sam sa pretrazivanjem ali nisam nasao odgovor!!!
poz
Probao sam sa pretrazivanjem ali nisam nasao odgovor!!!
poz
open exe file for binary outoput
Zaključano
Zakačeno
> 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;
var
s: TFileStream;
begin
s := TFileStream.Create(FileName, fmOpenReadWrite or fmShareDenyNone);
try
...
finally
s.Free;
end;
end;
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
izmenjeno 1 put, poslednji put morlic 12.01.2007. u 01:22
Izmene poruke
- morlic12.01.2007. u 01:22zapis iz teksta poruke
Koliko me sluzi secanje u TPascalu ide nekako ovako:
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
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;
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