wypakowywanie zasobów z exe.

0

Witam.
Chciałbym przy kompilowaniu programu dodać do zasobów 2 program exe a gdy ten 1 już się uruchomi i zostanie naciśnięty button to wtedy chciałbym aby 2 exe się wypakował np na pulpit. Na 4p był artykuł zasoby ale został usunięty ;-( Może ktoś mi pomóc?

//pozdrawiam

0

Tak, widziałem to ale tam jest opisane jak dodać wav. Nie wiem czy dobrze zrozumiałem text ale do każdego typu plików trzeba wpisać coś innego tak jak do wava id.wave. Nie wiem jak to trzeba dodać do exe. I jak potem wypakować. Normalnie kopiuj i źródło wpisać identyfikator tego naszego pliku?

0

Dodawanie plików *.exe wg Adama Boducha (dawno temu zassałem ten art, od tamtej pory stronka kilka metamorfoz już przeszła, a sam art gdzieś się zapodział), z oczywistych powodów trochę to przyciąłem
w *.rc
ASCII RCDATA "Ascii.exe"
wyciągnięcie z zasobu:

procedure TMainForm.btnGoClick(Sender: TObject);
var
  Res : TResourceStream;
begin
  Res := TResourceStream.Create(hInstance, 'ASCII', RT_RCDATA); // wydobac plik ASCII.EXE
  Res.SaveToFile('C:\ASCII.exe'); // zapisz na dysku
  ShellExecute(Handle, 'open', 'C:\ASCII.exe', nil, nil, SW_SHOW); // uruchom
  Res.Free;  // zwolnij zmienna
end;
0

Dzięki. Właśnie o to chodziło. pozdrawiam

1 użytkowników online, w tym zalogowanych: 0, gości: 1