Pa treba da imaš kompajler kod sebe pa da kompajliraš source, ili da napraviš exe fajl u delphiju, iskompajliraš ga, a onda ga *nekako* ubaciš kao resurs u taj drugi exe fajl (pretvoriš tvoj .exe u .res fajl koristeći bin\brcc32.exe) pa ga pri pokretanju extractuješ.
Unit bi ti izgledao ovako:
Code:
var
Form1: TForm1;
implementation
{$R *.dfm}
{$R c:\Izvor.RES} { ovo je bitno!!! }
procedure TForm1.Button1Click(Sender: TObject);
var
Res : TResourceStream;
begin
res:=tresourcestream.Create(hinstance,'resurs',Pchar('wav'));
res.SaveToFile('d:\zvuk.wav');
res.Free;
end;
p.s. Ovo je samo okvirno rešenje, ja ovo baš baš dugo nisam koristio tako da ne znam baš tačno kako se koristi, ali...
Moj sajt.
Engleski?.
Moj blog.
Moj avatar.
[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
Kako da se pri izvrsavanju programa kreira poseban Delphi-jev exe fajl?
Registrovani: 85 ( G.Feri, cistac_bazena, podgorica100, banertd, __Mrgud__, nocniduh, [REaS0n], dokidoki2, veselinovic, Masha 2502, negyxo, TijanaR, kalimero 011, anakin14, leaaja, ApartmaniSrbija, ognjeni_zmaj, ctrl alt del, foxhunter1, jocokt, windelf, modelar, Miroslav Cvejić, Milan Ogrizovic, igorpet, LepoPace, Lazar-I, pena2008, ortodox888, valjan, Dexic, boban779, gysmi, bojannp, Count Zero, spulkan, mada77, paterson, dejans78, pajaja, Milos911, unique93, teča, hogar strašni, Markoxxx, Flo33, ZanLepen, Homoljski med, Corolla XL, bugmenot2, Chieftec, petkons, dekys, ddex2500, SunnyBoy, niceness, maksvel, twiddle, marakan, tanasko, sjenka1, Ilic Igor, IgorJ, Jazon, dusty, bokivaol, night-shift, reiser, dzonihsv, Goran Mijailovic, tep3a, maricc, bobo63, aleksblack, milanche, savasa, acme, beethoven015, commissar, BigFoot, geniuxx, Aleksandar Olujic, Shon3i, Binary Mind, boskex )