Вопрос Как добавить отдельный текст, типо ник кто делал репак?

[froggyex]

Нужно добавить ник в установщик, кто делал репак. Не знаю куда лучше всего засунуть ну и требуется помощь как это реализовать, так как код огромный и я как обычно что то напутал. Буду благодарен если поможете

 

[tihiy_don]

@froggyex,

В InitializeWizard два раза вызываете процедуру.

procedure InitializeWizard();
begin
  RedesignWizardForm;
  RedesignWizardForm;
end;

В самом конце скрипта "nd;", вы потеряли букву E.

А куда именно вы хотите добавить "Ник" в установщик? На форму или в заголовок формы?

 

[froggyex]

@froggyex,

В InitializeWizard два раза вызываете процедуру.

procedure InitializeWizard();
begin
  RedesignWizardForm;
  RedesignWizardForm;
end;

В самом конце скрипта "nd;", вы потеряли букву E.

А куда именно вы хотите добавить "Ник" в установщик? На форму или в заголовок формы?

под картинкой, ща скину пример где фобос стоит

 

[tihiy_don]

@froggyex,
Я делал ссылкой так, можете переделать просто под текст без ссылки:

procedure URLLabelClick(Sender: TObject);                                                                            
var                                                                                                                  
  ErrorCode:integer;                                                                                                 
begin                                                                                                                
  ShellExec('open','https:...','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);                         
end;                                                                                                                 
procedure ClickURL();                                                                                                
begin                                                                                                                
  URLLabel:=TLabel.Create(WizardForm);                                                                               
  with URLLabel do begin                                                                                             
    Top:=ScaleY(335)-dURL;                                                                                           
    Left:=ScaleX(25)-dURL;                                                                                           
    Caption:='RePack By';                                                                               
    AutoSize:=True;                                                                                                  
    Parent:=WizardForm;                                                                                              
    Cursor:=crHand;                                                                                                  
    Transparent:=True;                                                                                               
    Font.Color:=$001330B7;                                                                                            
    Font.Size:=9;                                                                                                    
    Font.Style:=Font.Style+[fsBold];                                                                                 
    BringToFront;                                                                                                    
    OnClick:=@URLLabelClick;                                                                                                                                                                      
  end;                                                                                                               
end;

procedure InitializeWizard();
begin
  ClickURL();
end;

 

[froggyex]

@froggyex,
Я делал ссылкой так, можете переделать просто под текст без ссылки:

procedure URLLabelClick(Sender: TObject);                                                                           
var                                                                                                                 
  ErrorCode:integer;                                                                                                
begin                                                                                                               
  ShellExec('open','https:...','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);                        
end;                                                                                                                
procedure ClickURL();                                                                                               
begin                                                                                                               
  URLLabel:=TLabel.Create(WizardForm);                                                                              
  with URLLabel do begin                                                                                            
    Top:=ScaleY(335)-dURL;                                                                                          
    Left:=ScaleX(25)-dURL;                                                                                          
    Caption:='RePack By';                                                                              
    AutoSize:=True;                                                                                                 
    Parent:=WizardForm;                                                                                             
    Cursor:=crHand;                                                                                                 
    Transparent:=True;                                                                                              
    Font.Color:=$001330B7;                                                                                           
    Font.Size:=9;                                                                                                   
    Font.Style:=Font.Style+[fsBold];                                                                                
    BringToFront;                                                                                                   
    OnClick:=@URLLabelClick;                                                                                                                                                                     
  end;                                                                                                              
end;

procedure InitializeWizard();
begin
  ClickURL();
end;

 

[tihiy_don]

@froggyex,

[code]
const
  dURL=2;
var
  URLLabel,URLLabelShadow:TLabel;

 

[froggyex]

@froggyex,

[code]
const
  dURL=2;
var
  URLLabel,URLLabelShadow:TLabel;

ля опять ошибка

 

[tihiy_don]

Посмотреть вложение 5903ля опять ошибка

скинь вес код сюда посмотрю.

 

[froggyex]

скинь вес код сюда посмотрю.

я кидал в первом сообщении

 

[tihiy_don]

я кидал в первом сообщении

Не знаю что ты не так сделал, я на новом скрипте всё сделал и запускается нормально.