Textimport und export

[baumina]

Zitat von bennySB:

Ich möchte mal euren Erfahrungsschatz anzapfen^^

Zum Identifizieren des Verzeichnisses habe ich mir nun zwei Lösungsvarianten rausgesucht:

1. Variante über
function FindFirst(const FileName: String; var FindRec: TFindRec): Boolean; .


2. Variante über einen Eintrag in der Registry wo immer das aktuelle {App} Verzeichnis eingetragen wird und den Wert kann er sich dann ja auslesen.


Ich persönlich bevorzuge Variante 2, dies wird wohl die sauberste, sicherste und schnellste sein oder?

Variante 1 : Kann der Benutzer bei der Installation frei wählen wie das Verzeichnis heißen soll, hättest du hier keine Ahnung wonach du suchen solltest.

Variante 2 : Gefällt mir.

[bennySB]

hmmm ich komme gerade einfach nicht weiter.
Ich habe es mir nun so eingestellt das er sich den Pfad aus der Registry holt und überprüft, sollte der Pfad nicht gefunden werden so bricht er mit einer Fehlermeldung zum manuellen deinstallieren ab und gut ist. Findet er den Pfad kommt die Meldung des Versionsunterschiedes, jedoch startet er nicht meine angegebene unins000.exe und ich sehe nicht warum, er bricht dann auch einfach alles ab.

Delphi-Quellcode:

        Result := (SetupMajor > SavedMajor) or ((SetupMajor = SavedMajor) and (SetupMinor >= SavedMinor));
        
        if(not Result) then
          begin        
            if RegQueryStringValue(HKLM,'{#UNINSTKEY}','InstallLocation',DOSBoxCAE2000Path) then
              begin
                result := DirExists(DOSBoxCAE2000Path);
              end;  
              if not Result then 
                begin
                  MsgBox(ExpandConstant('{cm:DOSBoxPathNotFound}'),mbError,MB_OK);
                  ResultDOSBoxCAE2000PathCheck := false;
                end else                          
            
            if MsgBox(Format(ExpandConstant('{cm:NewerAppFound}'),[DecodeVersion(SavedMajor,SavedMinor)]),mbConfirmation,MB_YESNO) = IDYES then;
              begin
                Exec(ExpandConstant('>'),'DOSBoxCAE2000Path\unins000.exe','',SW_SHOW,ewWaitUntilTerminated,ResultCode);
              end;                
          end;

Edit: Den Abbruch des Setups rufe ich halt hier auf (nur zur Veranschaulichung)

Delphi-Quellcode:

    function InitializeSetup: boolean;

      begin
        UserFolderCAE := '';
        Result := true;
        Result := IsSetupNewer; 

        if ResultDOSBoxCAE2000PathCheck = false then
          begin
            result := false;
          end;
      
      end;

[baumina]

if MsgBox(Format(ExpandConstant('{cm:NewerAppFound}'),[DecodeVersion(SavedMajor,SavedMinor)]),mbConfirmation,MB_YESNO) = IDYES then;
Das ";" am Ende der Zeile bedeutet dass nichts passieren soll. Wenn Du das ";" in dieser Zeile weg machst, geht er auch in das begin/end rein.

[bennySB]

Ach das wäre schön einfach gewesen^^

Der kleine Fehler ist mir auch schon aufgefallen nur leider lag es nicht an ihm, ich habe irgendwie die Vermutung das es an der IDYES Abfrage hängt und die nicht richtig läuft.
Das alles abbricht konnte ich korrigieren, da war ein fehler beim InitlializeSetupm aber der ist behoben.
Jetzt ist es egal ob ich Yes oder No anklicke immer so das er mit das Normale Setup einfach startet und ich habe keinen Schimmer mehr warum.

Hier nochmal der aktuelle Code (weiß net mehr ob sich ne Kleinigkeit geändert hat^^)

Delphi-Quellcode:

        Result := (SetupMajor > SavedMajor) or ((SetupMajor = SavedMajor) and (SetupMinor >= SavedMinor));
        
        if not Result then
          begin              
            if RegQueryStringValue(HKLM,'{#UNINSTKEY}','InstallLocation',DOSBoxCAE2000Path) then
              begin
                result := DirExists(DOSBoxCAE2000Path);
              end;  
              if not Result then 
                begin
                  MsgBox(ExpandConstant('{cm:DOSBoxPathNotFound}'),mbError,MB_OK);
                  ResultDOSBoxCAE2000PathCheck := false;
                end else                          
                 
                  if MsgBox(Format(ExpandConstant('{cm:NewerAppFound}'),[DecodeVersion(SavedMajor,SavedMinor)]),mbConfirmation,MB_YESNO or MB_DEFBUTTON2) = IDYES then
                    begin
                      Exec(ExpandConstant('>'),'DOSBoxCAE2000Path\unins000.exe','',SW_SHOW,ewWaitUntilTerminated,ResultCode);
                    end; 
          end;

Und im Anhang mein Komplettes Programm.

Ich kenne sonst einfach nur keine Variante mehr zum Abfragen einer Messagebox.

[bennySB]

Okay mit viel hin und her Probieren habe ich es nun doch geschafft, mein Code an der Stelle sieht nun folgendermaßen aus:

Delphi-Quellcode:

        SetupMajor := CreateDWord({#MAJOR},{#MINOR});
        SetupMinor := CreateDWord({#RELEASE},{#BUILD});
      
        Result := (SetupMajor > SavedMajor) or ((SetupMajor = SavedMajor) and (SetupMinor >= SavedMinor));
        ResultAktuelleAppFound := (SetupMajor = SavedMajor) or ((SetupMajor = SavedMajor) and (SetupMinor = SavedMinor));

        RegQueryStringValue(HKLM,'{#UNINSTKEY}','UninstallString',DOSBoxCAE2000UninstallString);
        DOSBoxCAE2000UninstallPath := (ExtractFileDir(DOSBoxCAE2000UninstallString) + '\' + '"');
        DOSBoxCAE2000UninstallName := ('"' + ExtractFileName(DOSBoxCAE2000UninstallString));
        DOSBoxCAE2000UninstallStringRemovedQuotes := RemoveQuotes(DOSBoxCAE2000UninstallString);
        DOSBoxCAE2000UninstallPathRemovedQuotes := RemoveQuotes(DOSBoxCAE2000UninstallPath);
        DOSBoxCAE2000UninstallNameRemovedQuotes := RemoveQuotes(DOSBoxCAE2000UninstallName);


        if not Result then
          begin              
            if RegQueryStringValue(HKLM,'{#UNINSTKEY}','InstallLocation',DOSBoxCAE2000Path) then
              begin
                result := DirExists(DOSBoxCAE2000Path);
              end;  
              if not Result then 
                begin
                  MsgBox(ExpandConstant('{cm:DOSBoxPathNotFound}'),mbError,MB_OK);
                  ResultDOSBoxCAE2000PathCheck := false;
                end;                         
            if MsgBox(ExpandConstant('{cm:NewerAppFound}'),mbError,MB_YESNO or MB_DEFBUTTON2) = IDYES then
              begin
                Exec(ExpandConstant(DOSBoxCAE2000UninstallStringRemovedQuotes),'/SILENT','',SW_SHOW,ewWaitUntilTerminated,ResultCode);
              end else
                ResultDOSBoxCAE2000DontDeinstall := true;             
          end;
        
        if ResultAktuelleAppFound = true then
          begin                                                       
            MsgBox(Format(ExpandConstant('{cm:AktuelleAppFound}'),[DecodeVersion(SavedMajor,SavedMinor)]),mbConfirmation,MB_OK);                                  
          end;
         
      end;