Das ist ganz gefährlich !
Nimm lieber "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet...".
Denn Du weißt nie, wie lange das CurrentControlSet das ControlSet001 bleibt bzw. ist.
Dies dient eigentlich nur der Überprüfung ob meine Systemvariable vorhanden ist. Habe mich darüber informiert und es wurde gesagt das alle Systemvariablen dort eingetragen sind.
Was wäre den jetzt, universel gesehen, das bessere zur Überprüfung einer Systemvariablen ? 
MfG
JeanLuc
Juhuu, endlich es funktioniert einwandfrei 
Danke Dietmar 
Vielen vielen Dank 
Für spätere Zuschauer und Interessierte träge ich mal noch den kompletten Code hier ein 
#Region - Globale Voraussetzungen
[/autoit][autoit][/autoit][autoit]Dim $Software = "Disk Explorer Professional 3.60"
Dim $SoftwareExe = "\depro.exe"
Dim $Title1 = "Installation: License Agreement"
Dim $Title2 = "Installation"
Dim $env_string=EnvGet("SOFTWARE")
Dim $VariableSoftware = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment","SOFTWARE") ; Registry-Zweig für Systemvariable
Dim $SoftwareInstallUnterMenu = "Antelope Studios\Disk Explorer Professional 3"
Dim $SoftwareInstallWert = "path"
Dim $SoftwareInstall = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\" & $SoftwareInstallUnterMenu, $SoftwareInstallWert)
Dim $Title1 = "Installation: License Agreement"
Dim $Title2 = "Installation"
Dim $Fenster1 = "Please read carefully"
Dim $Fenster2 = "Install to &folder"
Dim $Fenster3 = "Installation finished"
Dim $Fenster4 = "Installation of the additional"
Dim $Fenster5 = "Installation finished"
Dim $Button1 = "Button1"
Dim $Button5 = "Button5"
Dim $Edit1 = "Edit1"
#EndRegion - Globale Voraussetzungen
[/autoit][autoit][/autoit][autoit]If $VariableSoftware = 1 Then ; Überprüfung ob die Systemvariable gegeben ist
[/autoit][autoit][/autoit][autoit]SplashTextOn("SystemVariable nicht vorhanden !!","Da die Systemvariable `SOFTWARE´ nicht existiert, kann die verwendete Software nicht installiert werden. Bitte erstellen Sie umgehend diese Systemvariable", 500, 200, -1, -1, 0, "", 16, "")
Sleep(10000)
SplashOff()
ElseIf FileExists($env_string & $Software & $SoftwareExe) Then ; Überprüfung ob Programm-Ordner auf der Festplatte vorliegt
[/autoit][autoit][/autoit][autoit]SplashTextOn("Die zu installierende Software ist bereits installiert","Der Installations-Ordner von " & $Software & " ist bereits vorhanden. Für eine Neuinstallation bitte löschen", 500, 200, -1, -1, 0, "", 16, "")
Sleep(10000)
SplashOff()
ElseIf FileExists($SoftwareInstall) <> "" Then ; Überprüfung ob das Programm in der Registry vorhanden ist (funktioniert endlich )
SplashTextOn("Programm noch installiert !!","Das Programm ist in der Registry noch registriert. Bitte deinstallieren", 500, 200, -1, -1, 0, "", 16, "")
Sleep(10000)
SplashOff()
Else
[/autoit][autoit][/autoit][autoit]; BlockInput(1) - Ab hier erfolgt die Installation
[/autoit][autoit][/autoit][autoit]ShellExecute($Software & ".exe")
[/autoit][autoit][/autoit][autoit];Warten auf Installations-Fenster
WinWaitActive($Title1,$Fenster1)
ControlClick($Title1,$Fenster1,$Button1)
;Warten auf Installations-Verzeichnis
WinWaitActive($Title2,$Fenster2)
ControlSetText($Title2,$Fenster2,$Edit1, $env_string & $Software & "\")
ControlClick($Title2,$Fenster2,$Button5)
;Installation des Programms
[/autoit][autoit][/autoit][autoit];Fertigstellen des Programms
WinWaitActive($Title2,$Fenster3)
ControlClick($Title2,$Fenster3,$Button1)
WinClose("Disk Explorer Professional 3","FolderView")
[/autoit][autoit][/autoit][autoit];German-Sprachdatei installieren
ShellExecute($Software & " German-Patch.exe")
;Warten auf Installations-Fenster
WinWaitActive($Title2,$Fenster4)
ControlClick($Title2,$Fenster4,$Button1)
;Fertigstellen des Programms
WinWaitActive($Title2,$Fenster5)
ControlClick($Title2,$Fenster5,$Button1)
WinClose("Disk Explorer Professional 3","FolderView")
[/autoit][autoit][/autoit][autoit]; BlockInput(0)
[/autoit][autoit][/autoit][autoit]Exit
[/autoit][autoit][/autoit][autoit]EndIf
[/autoit]Dieses Script installiert den sehr guten Medien-Katalog Disk Explorer Professional 3.60 unbeaufsichtigt auf einen vorgegebenen Pfad (Systemvariable "Software" muss dabei vorliegen). Außerdem überprüft das Script ob der Programm-Ordner auf der Festplatte vorliegt, ob die Systemvariable gegeben ist und ob das Programm schon in der Registry verewigt wurde 
Und ab jetzt sogar voll funktionstüchtig Dank Mithilfe von Dietmar 
MfG
JeanLuc
PS: Damit wird das Thema von mir aus von "offen" auf "gelöst" umgestellt 
Sorry ich glaube ich verblöde diese Woche noch ganz, kriege einfach nichts mehr auf die Reihe.
[autoit]
#Region - Globale Voraussetzungen
Dim $Software = "Disk Explorer Professional 3.60"
Dim $SoftwareExe = "\depro.exe"
Dim $Title1 = "Installation: License Agreement"
Dim $Title2 = "Installation"
Dim $env_string=EnvGet("SOFTWARE")
Dim $SoftwareUninstall = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE", "foobar2000")
#EndRegion - Globale Voraussetzungen
If FileExists($SoftwareUninstall) Then
SplashTextOn("Programm noch installiert !!","Das Programm ist in der Registry noch registriert. Bitte deinstallieren", 500, 200, -1, -1, 0, "", 16, "")
Sleep(10000)
SplashOff()
Else
ShellExecute("Foobar2000 0.9.6.8.exe")
[/autoit][autoit][/autoit][autoit];Installation des Programms (dieses kriege ich noch hin 
Exit
EndIf
ich prüfe immer den regEintrag unserer Software indem ich das Bin Verzeichnis abfrage
und dann mit fileexists ob der Pfad auch vorhanden istHKLM\Software\[Firma]\Programm\etwas zum prüfen
Dietmar
Das habe ich gerade mehrmals probiert. Habe dies in eine Variable geschrieben und dann in der If-Abfrage nachgefragt "Wenn dieses Vorhanden dann Fehlermeldung sonst Setup". Es kommt immer noch wie davor entweder nur Fehlermeldung oder nur Setup, egal ob das Programm installiert ist oder nicht.
Ich bin langsam am verzweifeln 
Kriege es seit Tagen nicht hin 
Hoffe es hilft mir jemand dabei meine Dummheit zu verbessern
MfG
JeanLuc
PS: Sorry hatte vergessen ne andere Abfrage (Systemvariable) zu entfernen. Jetzt ist nur noch alles vorhanden was für diese Abfrage nötig ist
Dim $SoftwareReg = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\foobar2000\","DisplayName")
[/autoit]Das habe ich mir schon gedacht, das Programme dort liegen. Nur mein Problem ist ich weiss nicht mit welcher Funktion (z.B. RegRead) ich diese in einer If-Abfrage überprüfen kann.
Nämlich mit meiner Abfrage (s.o.) kriege ich entweder nur die Fehlermeldung gezeigt oder es wird das Programm installiert. Dabei ist egal ob das Programm installiert ist oder nicht .
Kann mir einer dabei helfen
MfG
JeanLuc
Hallo AutoItler
ich habe mal wieder ein Problem und hoffe das ihr mir helfen könnt.
Ich möchte mir gerne verschiedene Installationsskripte für Programme (hier z.B. foobar2000 ) erstellen. Dabei möchte ich vor der Installation überprüfen lassen ob "meine" Systemvariable besteht (funktioniert), ob der Installations-Ordner des Programms existiert (funktioniert) und ob das Programm schon in der Registry steht (funktioniert nicht ).
So das wäre die Vorgeschichte
Nun erstmal das Skript mit allem was dazu gehört
[autoit]#Region - Globale Voraussetzungen
Dim $Software = "Foobar2000 0.9.6.8"
Dim $env_string=EnvGet("SOFTWARE")
Dim $VariableSoftware = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment","SOFTWARE")
Dim $SoftwareReg = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\foobar2000\","DisplayName")
#EndRegion - Globale Voraussetzungen
If $VariableSoftware = 1 Then
SplashTextOn("SystemVariable nicht vorhanden !!","Da die Systemvariable `SOFTWARE´ nicht existiert, kann die verwendete Software
nicht installiert werden. Bitte erstellen Sie umgehend diese Systemvariable", 500, 200, -1, -1, 0, "", 16, "")
Sleep(10000)
SplashOff()
ElseIf FileExists($env_string & $Software & $SoftwareExe) Then
SplashTextOn("Die zu installierende Software ist bereits installiert","Der Installations-Ordner von " & $Software & " ist bereits vorhanden. Für eine Neuinstallation bitte löschen", 500, 200, -1, -1, 0, "", 16, "")
Sleep(10000)
SplashOff()
ElseIf $SoftwareReg = 0 Then
SplashTextOn("Programm noch installiert !!","Das Programm ist in der Registry noch registriert. Bitte deinstallieren", 500, 200, -1, -1, 0,
"", 16, "")
Sleep(10000)
SplashOff()
Else
[/autoit][autoit][/autoit][autoit]ShellExecute("Foobar2000 0.9.6.8.exe")
[/autoit][autoit][/autoit][autoit]; Installationsabfolge
[/autoit][autoit][/autoit][autoit]Exit
[/autoit][autoit][/autoit][autoit]EndIf
[/autoit]So nun wirds ernst (wenigstens für mich ). Wie ich schon oben geschrieben habe funktionieren 2 von den 3 Abfragen, nur die letzte die
nach dem Programm in der Registry suchen soll funktioniert nicht.
Dim $SoftwareReg = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\foobar2000\","DisplayName")
ElseIf $SoftwareReg = 0 Then
SplashTextOn("Programm noch installiert !!","Das Programm ist in der Registry noch registriert. Bitte deinstallieren", 500, 200, -1, -1, 0,
"", 16, "")
Sleep(10000)
SplashOff()
Wie schon erwähnt soll bei dieser Abfrage in der Registry überprüft werden, ob das Programm schon installiert wurde (egal welche Fassung bzw. Version) und wenn dies so ist eine Fehlermeldung in Form einer MessageBox mit Warnhinweis (Die Messagebox funktioniert, nur das andere nicht ).
Ich habe auch schon statt "RegRead" auch "RegEnumVal" und "RegEnumKey" verwendet, funktioniert mit meinem "beschränktem" AutoIt-Wissen leider auch nicht.
Hoffe das Ihr mir helfen könnt
MfG
JeanLuc
Sorry könnte es gestern erst richtig ausprobieren.
Einfach die ComboBox anklicken und links nach "Items" T-String suchen.
Anklicken dan geht ein Textfeld auf, und da einfach untereinander die Werte eingetragen, die du gerne möchtest.
Habe es jetzt so gemacht wie mir Der_Doc bechrieben hat.
Habe also KODA geöffnet, dort in der ComboBox unter "Items" T-String meine Werte eingetragen. Habe dann gespeichert und wollte schauen ob das Script nun läuft. Als ich dann das Script gestartet habe kam eine Fehlermeldung "Invalid Windows handle for _GUICtrlStatusBar_Create 1st parameter".
Habe ich jetzt was vergessen, ist mein Script irgendwo falsch oder lieg ich irgendwie komplett falsch. Da ich bisher noch nie mit dem KODA FormDesigner gearbeitet habe und bei AutoIt auch noch Anfänger bin, hoffe ich das mir hierbei jemand helfen kann und mir am Anfang etwas genauer beschreibt was ich wie und wo zu schreiben habe 
.
Wäre euch sehr dankbar dafür
MfG
JeanLuc
Anhang ist das AU3-Skript für KODA
Vielen Dank für eure Antworten . Jetzt weiss ich schon mal wie es geht
MfG
JeanLuc
Hallo Community
ich habe mal wieder ein Problem und bräuchte wieder Hilfe von euch
Ich möchte mir über KODA eine GUI erstellen, mit der ich eine Systemvariable (namens "SOFTWARE", nur zur Vollständigkeit) erstellen kann. Dazu wollte ich 2 ComboBoxen verwenden, in denen ich verschiedene Werte (1. Laufwerks-Buchstaben, 2. verschiedene Haupt-Verzeichnisse) fest eingetragen habe und mit dem dahinterstehenden Button in die Registry übertrage . In der 3 ComboBox soll ein belieber Wert eingegeben werden, der dann in die Registry übernommen werden soll. Der Registry-Zweig dafür ist mir bekannt (HKLM\System\CurrentControlSet\Control\Session Manager\Environment). Ich weiss nur nicht wie ich in die ComboBoxen Werte eintragen kann bei KODA , und wie ich diese Werte dann in die Registry kriege ?(.
Wäre sehr froh darüber wenn mir jemand sagen kann wie das geht, und welche Funktionen ich wie einsetzen muss .
Hoffe ihr verzeiht meine Unwissenheit
Nein, bisher noch nicht. Werde es mir aber in nächster Zeit mal anschauen.
Danke
MfG
JeanLuc2204
Man könnte z.B. eine Datei erstellen, in der alle zu installierenden Programme enthalten sind, incl. evtl. vorhandener Silent-Schaltern.
Dann eine GUI erstellen mit 2 Filelisten, die auf der CD enthaltenen Programme werden in der linken Liste dargestellt, je nach Bedarf per Drag&Drop in die "Install"-Liste gezogen, ggf noch Verzeichnisse ausgewählt, auf den "Install"-Button geklickt und ab gehts Kaffee trinken
Sorry, hab mich dann falsch ausgedrückt.
Meinte das ich einzelne die Skripte und Software benutze (z.B. als SFX), einfach von Festplatte (ohne WPI, CD, DVD o.ä.) und diese dann nach der Systemvariablen schauen und wenn sie nicht vorhanden ist, das ein Eingabebox erscheint womit man sie dann erstellen kann (und diese dann auch mindestens bis zum nächsten Neustart anwendbar bleibt).
Etwas ähnliches was du meinst ist der Comfort Installer (bei German-winlite.de zu finden), der zwar gut ist aber nicht für meine "Wünsche" geeignet ist
Das ich in mein Skript eine Abfrage einbaue, ob die Systemvariable "Software" vorhanden ist, und wenn nicht, das dann ein Fenster erscheint in dem man dann den Haupt-Installationsort für Software angibt oder auf vorgefertigte Ordner-Buttons klickt.
Dies wäre jetzt nun meine letzte große Hürde vorerst, um meine Installations-Skripte so hinzubekommen.
Da nun mein Hauptanliegen erstmal erledigt ist, ändere ich die Überschrift in "erledigt"
Danke für alle Antworten
MfG
JeanLuc2204
Jep, das ist genau das was ich gesucht habe. Danke Danke
Ich möchte gern halt alles unbeaufsicht ablaufen lassen. Man soll sich nur noch die Software auf der WPI-DVD aussuchen, Installationen beginnen und Kaffee holen können
Das einzigste wäre jetzt noch wenn die Skripte & Software einzeln benutzt werden ohne die WPI-DVD.
Das ich in mein Skript eine Abfrage einbaue, ob die Systemvariable "Software" vorhanden ist, und wenn nicht, das dann ein Fenster erscheint in dem man dann den Haupt-Installationsort für Software angibt oder auf vorgefertigte Ordner-Buttons klickt. Es wäre dabei auch gut, das diese Systemvariable bis zum nächsten Neustart vorhanden bleibt, das man bei weiteren Installationen nicht wieder den Installations-Ordner angeben muss (Unattended Installation ). Das wäre super wenn mir da einer nen Gedankenanstoss geben könnte, auch wegen dem Skriptaufbau (also wo ich diese Abfrage einfügen sollte und mit welchen Befehlen dies geht).
Aber das wichtigste ist erstmal damit geschafft. Danke Andy aber auch allen anderen in diesem Forum ein dickes Danke habe beim durchforsten des Forums schon vieles gesehen was mir helfen kann.
MfG
JeanLuc2204
Ersteinmal ein Hallo an die gesamte Community (ist mein erster Post)
Ich möchte gerne verschiedene Software automatisch und unbeaufsichtigt installieren lassen. Da ich dieses nicht nur bei mir, sondern auch bei Bekannten und Freunden machen will, kam ich auf die Idee dafür eine Systemvariable zusetzen und diese dann beim Setup zu benutzen.
Will meine gesamte Software auf eine WPI-DVD (Windows Post Installer) brennen, und bei Aufruf eine Systemvariable namens "Software" erstellen lassen, die dann für denn jeweiligen Rechner einen spezifischen Installationsort in die Registry einträgt.
Da ich erst seit wenigen Tagen AutoIt verwende und von Programmieren (noch) keine Ahnung habe, habe ich mich schon bei euch in den Foren schlau gemacht (auch bei German-Winlite.de, gutes Wiki ). Bin jedoch immer noch nicht schlau genug um heraus zu finden wie ich meine Systemvariable in das Setup kriege.
Dies ist mein erstes Skript
[autoit]
BlockInput(1)
ShellExecute("Burrrn 1.13.exe")
[/autoit][autoit][/autoit][autoit];Warten auf Installations-Fenster
WinWait("Burrrn 1.13 Setup","Choose Components")
Send("{DOWN}" & "{SPACE}")
ControlClick("Burrrn 1.13 Setup","Nullsoft Install System v2.06","Button2")
;Warten auf Installations-Verzeichnis
WinWait("Burrrn 1.13 Setup","Choose Install Location")
EnvGet("SOFTWARE")
ControlSetText("Burrrn 1.13 Setup","Choose Install Location","Edit1", @ProgramFilesDir & "\Burrrn 1.13\")
ControlClick("Burrrn 1.13 Setup","Choose Install Location","Button2")
;Warten auf Startmenü-Ordner
WinWait("Burrrn 1.13 Setup","Choose Start Menu Folder")
Send("Burrrn 1.13")
ControlClick("Burrrn 1.13 Setup","Choose Start Menu Folder","Button2")
;Installation des Programms
[/autoit][autoit][/autoit][autoit];Warten auf Fertigstellen des Programms
WinWaitActive("Burrrn 1.13 Setup","Installation Complete")
ControlClick("Burrrn 1.13 Setup","Installation Complete","Button2")
Blockinput(0)
[/autoit]Ich weis es ist nicht perfekt, bin halt noch Anfänger und arbeite daran
Mir geht es vor allem um diesen Abschnitt
ControlSetText("Burrrn 1.13 Setup","Choose Install Location","Edit1", @ProgramFilesDir & "\Burrrn 1.13\")
[/autoit]
Dort hätte ich gern statt "ProgramFilesDir" meine Variable "Software" (momentan bei mir auf D:\ eingestellt) stehen. Der Hintergedanke ist halt das ich bei Bekannten bzw. Freunden diese Variable auf ein anderes Laufwerk setze, in dem Sie ihre Software installiert haben möchten.
Ich wäre sehr froh wenn einer von euch mir helfen könnte und mir sagt wie ich meine eigene Systemvariable in dieses Skript einbauen kann.
MfG
JeanLuc2204
