Instalka programu pisanego w DELPHI

[beXorn]

Witam napisałem program. Otwiera on za pomoca ShellExecute programy.
Teraz moje pytanie. Jak zrobić instalkę?
ShellExecute(Handle,'open','C:\Program Files\blabla\1.exe', nil, nil, SW_NORMAL);
czy
ShellExecute(Handle,'open','1.exe', nil, nil, SW_NORMAL);

Bo większość osób instaluje na c://
Może ktoś poleci jakiś program do tworzenia instalek z jakimś opisem co i jak?

 

[Legalnl]

jeżeli programy ktore chcesz uruchamiać w folderze są z Twoim programem to:

s := Extractfilepatch(application.exename) + 'twojprogram.exe';
ShellExecute(Handle,'open',pchar(s), nil,pchar(s), SW_NORMAL);

Jeżeli chcesz odpalać programy kij wie skąd to poszukaj w rejestrze ich ścieżki Warto tez pokusić się o pobranie ścieżek do folderów program files z zmiennych środowiskowych lub także z rejestru w kluczu:

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders