Instalatory

Temat instalatorów jest bardzo ciekawy. Bo któż nie chciałby mieć własnego instalatora? Pewnie każdy. W tym artykule przedstawię proces pisania instalatora bez wykorzystania dodatkowych komponentów. Nie będzie to instalator w stylu "Install Shield", ale taki na własny użytek, do własnych celów.

Zacznijmy więc. Wygląd samego instalatora zależy już od Ciebie i od Twojego gustu. Oczywiście nasz instalator ma być w jednym pliku tak żeby nasz instalowany program "odklejał" się od EXEka i zapisywał w wybranym przez użytkownika katalogu.
Pewnie największym problemem było włączenie samego pliku do EXEka, prawda?

Krok 1. Dołączanie plików

Przygotuj sobie najpierw jakiś katalog - załóżmy "Setup". Tam skopiuj pliki, które chcesz włączyć do EXEka. Ja w swoim przykładzie włączam tylko jeden plik wykonywalny EXE. Naszym celem będzie stworzenie zasobu zawierającego właśnie plik EXE, który chcesz zainstalować. W przykładzie, który podaje plik dołączony do zasobów nazywać się będzie "Pad.exe". Najpierw stwórz plik tekstowy z zmień jego rozszerzenie na *.rc ( np. files.rc ). W Notatniku dopisz taką linię:

PAD RCDATA "Pad.exe"
Pierwszy człon to nazwa programu, drugi to typ pliku - w tym wypadku jest to program, a ostatni człon podany w cudzysłowach to nazwa pliku wykonywalnego - w moim przypadku jest to "Pad.exe". Zapisz cały plik. Jeżeli posiadasz Delphi to z pewnością program "brcc32.exe". Znajduje się on w katalogu ...Delphi\Bin. Skopiuj go do katalogu z Twoimi plikami ( tam gdzie masz plik *.rc ).
Jest to program DOS-owy więc musisz uruchomić go z okienka MS -DOS. Ten program przekształci plik *.rc na *.res.
Odpal więc okienko MS - DOS-a i przejdź do katalogu z plikiem *.rc oraz z programem "brcc32.exe". W DOS-ie do katalogów przechodzi się poleceniem:

cd NazwaKatalogu
Jeżeli chcesz przejść o katalog wyżej to stosujesz polecenie:

cd..
A więc jeżeli już jesteś w tym katalogu to wpisz taką linię i wciśnij ENTER:

brcc32.exe files.rc
"Files.rc" to nazwa Twojego zasobu. Jeżeli wszystko pójdzie dobrze to obok pliku *.rc powinieneś ujrzeć plik z rozszerzeniem *.res.( w moim przypadku jest to plik o nazwie "files.RES". ). Gratulacje! Właśnie stworzyłeś zasób, który zawiera Twój plik EXE. Jest on zapewne dość duży ( w moim przypadku zajmuje 250 kB ).

Krok 2. Tworzenie instalatora

Teraz musisz w Delphi zrobić instalator. Postaw parę komponentów, walnij jakiś napis.

Krok 3. Wyciągnięcie programu z EXE-ka

Gdzieś w kodzie Twojego instalatora umieść taką linię:

{$R FILES.RES}

"Files.res" to Twoja nazwa zasobu. Od tej pory zasoby te są włączone do instalatora.
Pozostało jeszcze napisanie samej procedury, która wyciągnie z zasobów program i zapisze go gdzieś na dysku:

Wygląda ona tak:

var
  Res : TResourceStream;
begin
  Res:=TResourceStream.Create(hInstance, 'PAD', RT_RCDATA);
  Res.SaveToFile('Pad.exe');
  Res.Free;

Pierwsza linia powoduje stworzenie zasobu i wyciągnięcie z niego Twojego programu, kolejna zapisuje go na dysku, a ostatnia zwalnia pamięć.

To wszystko!