http://www.kijiten.com/index.php?disp=comments fr-FR http://backend.userland.com/rss 60 Wed, 22 Apr 2009 10:56:31 +0000 david [Visiteur] c4@http://www.kijiten.com/ merci infiniment Daniel CORDIER<br /> pour ce code, c'est g&#233;nial pour ce code, c'est génial]]> http://www.kijiten.com/index.php/2008/10/utiliser-un-web-service-dans-inno-setup#c4 Fri, 10 Apr 2009 10:27:11 +0000 Daniel CORDIER [Membre] c3@http://www.kijiten.com/ bonjour,<br /> <br /> voici une r&#233;ponse &#224; votre probl&#232;me (peut-&#234;tre un peu complexe il est vrai).<br /> <br /> procedure URLLabelOnClick(Sender: TObject);<br /> var<br /> ErrorCode: Integer;<br /> begin<br /> ShellExec('open', 'http://www.innosetup.com', '', '', SW_SHOWNORMAL, <br /> ewNoWait, ErrorCode);<br /> end;<br /> <br /> procedure InitializeWizard();<br /> var<br /> CancelButton: TButton;<br /> URLLabel: TNewStaticText;<br /> begin<br /> CancelButton := WizardForm.CancelButton;<br /> <br /> URLLabel := TNewStaticText.Create(WizardForm);<br /> URLLabel.Caption := 'www.innosetup.com';<br /> URLLabel.Cursor := crHand;<br /> URLLabel.OnClick := @URLLabelOnClick;<br /> URLLabel.Parent := WizardForm;<br /> { Alter Font *after* setting Parent so the correct defaults are inherited <br /> first }<br /> URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];<br /> URLLabel.Font.Color := clBlue;<br /> URLLabel.Top := CancelButton.Top + CancelButton.Height - URLLabel.Height - <br /> 2;<br /> URLLabel.Left := CancelButton.Left + CancelButton.Width + ScaleX(20);<br /> end;<br /> <br /> Le code le plus important est la ligne :<br /> <br /> ShellExec('open', 'http://www.innosetup.com', '', '',SW_SHOWNORMAL,ewNoWait, ErrorCode);<br /> <br /> qui lance un programme (normalement IE, mais d&#233;pend du param&#233;trage du poste).<br /> <br /> cordialement<br /> Daniel<br /> <br /> <br />
voici une réponse à votre problème (peut-être un peu complexe il est vrai).

procedure URLLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://www.innosetup.com', '', '', SW_SHOWNORMAL,
ewNoWait, ErrorCode);
end;

procedure InitializeWizard();
var
CancelButton: TButton;
URLLabel: TNewStaticText;
begin
CancelButton := WizardForm.CancelButton;

URLLabel := TNewStaticText.Create(WizardForm);
URLLabel.Caption := 'www.innosetup.com';
URLLabel.Cursor := crHand;
URLLabel.OnClick := @URLLabelOnClick;
URLLabel.Parent := WizardForm;
{ Alter Font *after* setting Parent so the correct defaults are inherited
first }
URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];
URLLabel.Font.Color := clBlue;
URLLabel.Top := CancelButton.Top + CancelButton.Height - URLLabel.Height -
2;
URLLabel.Left := CancelButton.Left + CancelButton.Width + ScaleX(20);
end;

Le code le plus important est la ligne :

ShellExec('open', 'http://www.innosetup.com', '', '',SW_SHOWNORMAL,ewNoWait, ErrorCode);

qui lance un programme (normalement IE, mais dépend du paramétrage du poste).

cordialement
Daniel


]]> http://www.kijiten.com/index.php/2008/10/utiliser-un-web-service-dans-inno-setup#c3 Fri, 10 Apr 2009 08:54:18 +0000 david [Visiteur] c2@http://www.kijiten.com/ voila je cherche de l'aide<br /> <br /> je voudrais dans inno setup, creer une nouvelle page avec un bouton au centre (nom du bouton : site) et quand on clique dessus, il va sur la page web d&#233;sirer<br /> mais malheureusement je ne trouve pas de code qui correspond a mon attente et de plus je ne connais pas grand chose a la programmation<br /> merci si vous pouvez m'aider..
je voudrais dans inno setup, creer une nouvelle page avec un bouton au centre (nom du bouton : site) et quand on clique dessus, il va sur la page web désirer
mais malheureusement je ne trouve pas de code qui correspond a mon attente et de plus je ne connais pas grand chose a la programmation
merci si vous pouvez m'aider..]]> http://www.kijiten.com/index.php/2008/10/utiliser-un-web-service-dans-inno-setup#c2 Fri, 30 Jan 2009 16:23:00 +0000 Vincent [Visiteur] c1@http://www.kijiten.com/ Merci, c'est exactement ce que je cherchais.<br /> <br /> Vincent
Vincent]]> http://www.kijiten.com/index.php/2008/09/desactiver-le-redemarrage-automatique-en#c1