Witam! Ostatnio próbuję stworzyć coś w stylu Autorun’a/Menu w programie Inno Setup. Program w miarę swoich możliwości ogarniam
Jednak nie wiem jak stworzyć przycisk, który po kliknięciu będzie zmieniał język opcji mojego menu. Wiem, że jest to możliwe, gdyż ostatnio widziałem takie cudeńko na pewnym forum. Jeśli będzie trzeba podam link. Dodam, że napisałem swój kod, który się kompiluje, ale przyciski nie spełniają swojej roli. Oto kod:
-
Kod moich CM
[CustomMessages]
#if Lang == “english”
Aplay="&Play"
Ainstall="&Install"
AUninstall="&Uninstall"
Aexit="&Exit"
Abrowse="&Browse DVD"
AppName=“MojaApp”
#elif Lang == “polish”
Aplay="&Graj"
Ainstall="&Instaluj"
AUninstall="&Odinstaluj"
Aexit="&Wyjdź"
Abrowse="&Przeglądaj DVD"
AppName=“MojaApp”
#else
error Unsupported Language
#endif
-
Kod przycisków, które potencjalnie miały zmieniać “caption”
#ifdef Lang
procedure MLabelOnClick2(Sender: TObject);
begin
#define Lang = “english”
end;
#endif
#ifdef Lang2
procedure MLabelOnClick3(Sender: TObject);
begin
#define Lang = “polish”
end;
#endif
-
Kod odpowiadający za nazwę pewnej opcji menu (w tym przypadku funkcji “GRAJ”)
Caption:=ExpandConstant(’{cm:APlay}’);
Proszę o pomoc w rozwiązaniu tej łamigłówki
Pozdrawiam, TonyGamer.