Vb6- Een vervaldatum in InnoSetup

Status
Niet open voor verdere reacties.
S

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

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;
Maar het werkt niet. Hoe moet dan ik aanpassen? En waar?
dank u
 
Laatst bewerkt:
dag Edmoor

Ik gebruik toch als installer van vb6 programma's.
En werkt ook prima.

Mijn aanpassing werkt, zoals gezegd, niet.
Ik heb niet de juist positie gevonden .
 
Een programma dat in C++ is geschreven kan je ook met Inno Setup installeren. Functies die je in Inno Setup maakt moeten niet geschreven worden in de taal van het programma dat je installleert maar in de taal die daarvoor door Inno Setup wordt gebruikt en dat is Pascal. De functie die je al hebt is ook Pascal syntax.

Zoals je zelf al zegt, nu werkt het niet.
 
Laatst bewerkt:
Nu toch wel, Edmoor. Zelf opgelost.
Zo aangepast
Code: 
[Code] 
Function InitializeSetup(): boolean;
Begin
If GetDateTimeString('yyyy/mm/dd', '-', #0) <= '2014-09-30' Then
Begin
Result := True;

End
Else
Begin
// Display a simple message box with an OK button
  MsgBox('Hello. ', mbInformation, MB_OK);
Result := False;
End
End;
 
Dat is nog steeds Pascal syntax, zoals ik al zei en zoals het hoort.
Het is dus geen VB6.
Maar mooi dat je het hebt opgelost :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan