satriano17
Gebruiker
- Lid geworden
- 30 sep 2012
- Berichten
- 331
dag
ik gebruik Inno setup als installer.
ik gebruik ook een function in innosetup met een vervaldatum.
Na die datum zal innosetup geen installatie meer uitvoeren.
En dat werkt goed.Hier mijn function in innosetup
de probleem is: als de datum verstreken is en gaat dus geen installatie meer plaatsvindt, weet men niet waarom.
Ik wou dan een soort msgbox plaatsen met de mededeling , bv "Programma niet meer geldig .." of zoiets.
Ik heb dan mijn code zo aangepast:
Maar het werkt niet. Hoe moet dan ik aanpassen? En waar?
dank u
ik gebruik Inno setup als installer.
ik gebruik ook een function in innosetup met een vervaldatum.
Na die datum zal innosetup geen installatie meer uitvoeren.
En dat werkt goed.Hier mijn function in innosetup
Code:
Function InitializeSetup(): boolean;
Begin
If GetDateTimeString('yyyy/mm/dd', '-', #0) <= '2016-12-31' Then
Begin
Result := True;
End
Else
Begin
Result := False;
End
End;
de probleem is: als de datum verstreken is en gaat dus geen installatie meer plaatsvindt, weet men niet waarom.
Ik wou dan een soort msgbox plaatsen met de mededeling , bv "Programma niet meer geldig .." of zoiets.
Ik heb dan mijn code zo aangepast:
Code:
Function InitializeSetup(): boolean;
Begin
If GetDateTimeString('yyyy/mm/dd', '-', #0) <= '2014-12-31' Then
Begin
Result := True;
// Display a simple message box with an OK button
MsgBox('Programma niet meer geldig...', mbInformation, MB_OK);
End
Else
Begin
Result := False;
End
End;
dank u
Laatst bewerkt: