+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 7 su 7

Notifica scadenza in InnoSetup

  1. #1
    tizike non  in linea Scolaretto
    Buongiorno

    In Innosetup io inserisco sempre questa funzione come scadenza dello stesso setup.
    Se la data oltrepassata il setup non viene eseguito. E questo funziona.
    [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;
    
    Sarebbe possibile aggiungere in questa stessa funzione una notifica/formula tipo msgbox
    per esempio " Validit setup scaduto " ? Se si quale formula?
    Come ho detto con il codice di sopra il setup non viene per nulla eseguito e l'utente (che ignora la data) non sa come mai.

    Grazie.
    Tizike.

  2. #2
    L'avatar di gibra
    gibra non  in linea Very Important Person

  3. #3
    tizike non  in linea Scolaretto
    Nel frattempo, Gibra, ho infatti trovato questo
    TMsgBoxType = (mbInformation, mbConfirmation, mbError, mbCriticalError);
    
    Example:
    begin
      // Display a simple message box with an OK button
      MsgBox('Hello.', mbInformation, MB_OK);
    
      // Ask the user a Yes/No question
      if MsgBox('Are you sure?', mbConfirmation, MB_YESNO) = IDYES then
      begin
        // user clicked Yes
      end;
    
      // Ask the user a Yes/No question, defaulting to No
      if MsgBox('Are you sure?', mbConfirmation, MB_YESNO or MB_DEFBUTTON2) = IDYES then
      begin
        // user clicked Yes
      end;
    end;
    
    ma purtroppo non riesco ad integrarlo nel mio codice .
    a me bastava (se ho ben capito) solo questa parte
    begin
      // Display a simple message box with an OK button
      MsgBox('Hello.', mbInformation, MB_OK);
    
    Dove inserirlo? Dopo End? Dopo la data? All'inizio della funzione? Questo non mi riesce.
    grazie

  4. #4
    L'avatar di gibra
    gibra non  in linea Very Important Person

  5. #5
    Presumo nel blocco in cui decidi che il risultato False
    ℹ️ Leggi di pi su AntonioG ...

  6. #6
    tizike non  in linea Scolaretto
    Io ho provato sia cosi (dopo False)
    Function InitializeSetup(): boolean;
    Begin
    If GetDateTimeString('yyyy/mm/dd', '-', #0) <= '2014-12-31' Then
    Begin
    Result := True;
      
    End
    Else
    Begin
    Result := False;
    // Display a simple message box with an OK button
      MsgBox('Hello.', mbInformation, MB_OK);
    End
    End;
    
    e sia cosi (Dopo True)
    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('Hello.', mbInformation, MB_OK);
      
    End
    Else
    Begin
    Result := False;
    
    End
    End;
    
    e in nessuno dei due casi mi appare il messaggio.
    Ultima modifica di AntonioG; 28-09-2017 10:52 

  7. #7
    tizike non  in linea Scolaretto
    Penso di aver risolto. Ho fatto varie prove e va. Ho messo quindi il Msgbox nel blocco False (come suggerito da Antonio
    [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('Validit programma esaurita. ', mbInformation, MB_OK);
    Result := False;
    End
    End;
    
    Unico punto (non lo so, ma forse giusto che sia cosi) che il setup arriva fino alla finestra di windows
    che mi chiede se poter apportare modifiche al sistema, e solo allora mi appare il Msgbox di notifica.
    Io pensavo che il messaggio di notifica dovesse arrivare immediatamente al lancio setup.

    Se ci fosse qualche suggerimento di miglioramento da apportare ben venga.
    Nel frattempo grazie Gibra e Antonio

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Dir installazione con InnoSetup
    Da tizike nel forum Altri linguaggi e strumenti
    Risposte: 1
    Ultimo Post: 20-02-2017, 12:45
  2. Notifica su rete lan
    Da Dario56 nel forum Visual Basic 6
    Risposte: 4
    Ultimo Post: 30-11-2011, 12:19
  3. Data di scadenza nel setup di InnoSetup
    Da titanic nel forum Altri linguaggi e strumenti
    Risposte: 6
    Ultimo Post: 05-10-2010, 12:46
  4. InnoSetup
    Da Mave nel forum Altri linguaggi e strumenti
    Risposte: 6
    Ultimo Post: 09-01-2009, 11:35
  5. Notifica Ip
    Da motoboy nel forum Visual Basic 6
    Risposte: 17
    Ultimo Post: 17-08-2007, 19:49