Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Spajanje exe fajlova

[es] :: Pascal / Delphi / Kylix :: Spajanje exe fajlova

[ Pregleda: 3301 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

BIG FOOT

Član broj: 2964
Poruke: 449
*.ptt.yu.



Profil

icon Spajanje exe fajlova13.08.2005. u 11:31 - pre 197 meseci
Imam jedan program koji nisam napravio u Delphiju.
Zelim da se pri svakom njegovom pokretanju pokrene jos jedan koji cu napraviti u delphiju. Kako? Res fajlovi?
 
Odgovor na temu

borovac
127.0.0.1

Član broj: 29278
Poruke: 220
*.dlp405.bih.net.ba.



Profil

icon Re: Spajanje exe fajlova13.08.2005. u 14:37 - pre 197 meseci
Ja sam to radio sa dll-om.
Recimo da se tvoj drugi fajl zove MyApp.exe i da se svi slijedeći fajlovi nalaze u istom direktoriju kao i sorsovi
Napravi file Resources.rc koji ima slijedeći sadržaj
Code:

MyApp EXE MyApp.exe

Zatim napravi bat fajl sa slijedećim sadržajem
Code:

@brcc32 Resources.rc -foResources.res
@pause

Zatim pokreni taj bat fajl duplim klikom. Vidjećeš da se stvorio novi fajl sa imenom Resources.res.
U glavnom sorsu prvog programa ispod linije {$R *.dfm} dodaj {$R Resources.res}.
Zatim u taj svoj source, u glavnoj formi dodaš event OnCreate u kojoj pozivaš slijedeću proceduru
Code:

procedure TForm1.CreateMyApp;
var rStream: TResourceStream;
    fStream: TFileStream;
    fName: string;
begin
  fName := 'MyApp.exe';
  rStream := TResourceStream.Create(hInstance, 'MyApp', 'EXE');
  try
   fStream := TFileStream.Create(fName, fmCreate);
  try
   fStream.CopyFrom(rStream, 0);
  finally
   fStream.Free;
  end;
  finally
   rStream.Free;
  end;
end;

Ako želiš na izlazu iz svoga programa pobrišeš onu aplikaciju što si kreiro ona na DestroyEvent pozivš slijedeću proceduru
Code:

procedure TForm1.DeleteMyApp;
begin
while not DeleteFile(PChar('MyApp.exe')) do
begin
end;
end;

DeleteFile naredbu sam stavio u ciklus jer mi nije htio brisati fajl uvijek na izlazi, dok u ciklusu to 100% radi.
 
Odgovor na temu

BIG FOOT

Član broj: 2964
Poruke: 449
*.yu
Via: [es] mailing liste



Profil

icon Re: Spajanje exe fajlova14.08.2005. u 08:05 - pre 197 meseci
Imas od mene pivo :)

Citat:

Zatim pokreni taj bat fajl duplim klikom

:)
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Spajanje exe fajlova

[ Pregleda: 3301 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.