AW: Textimport und export
Delphi-Quellcode:
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. |
AW: Textimport und export
Liste der Anhänge anzeigen (Anzahl: 1)
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:
Und im Anhang mein Komplettes Programm.
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; Ich kenne sonst einfach nur keine Variante mehr zum Abfragen einer Messagebox. |
AW: Textimport und export
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; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:56 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz