![](https://images.gutefrage.net/media/user/AwesomeLetsPlay/1447357896414_nmmslarge__655_0_536_536_37de92f40887f4c750625f8c56461f75.jpg?v=1447357896000)
![](https://images.gutefrage.net/media/default/user/14_nmmslarge.png?v=1551279448000)
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=C:\Program Files\steam\public\steam_tray.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <File.au3>
if $CmdLine[0] = 0 Then
$SteamExec = FileOpenDialog("Steam-Verzeichnis", "", "Steam (steam.exe)", 1, "steam.exe")
If @error Then Exit
$PathSplit = StringSplit($SteamExec, "\")
$FilePath = $PathSplit[1]
For $i=2 to ($PathSplit[0]-1)
$FilePath = $FilePath & "\" & $PathSplit[$i]
Next
$SteamLauncherPath = $FilePath & "\SteamLauncher"
DirCreate($SteamLauncherPath)
$AllGames = _FileListToArray ( $FilePath & "\steamapps","*.acf")
If @error Then
MsgBox (0,"Info", "Keine Spiele gefunden.",5)
Exit
EndIf
For $i = 1 To $AllGames[0]
$GameSpecs = FileOpen($FilePath & "\steamapps\" & $AllGames[$i])
$GameID = FileReadLine($GameSpecs,3)
$GameName = FileReadLine($GameSpecs,5)
FileClose($GameSpecs)
$GameIDSplit = StringSplit($GameID,Chr(9),1)
$GameID = StringTrimLeft($GameIDSplit[4],1)
$GameID = StringTrimRight($GameID,1)
$GameNameSplit = StringSplit($GameName,Chr(9),1)
$GameName = StringTrimLeft($GameNameSplit[4],1)
$GameName = StringTrimRight($GameName,1)
If Not FileExists( $SteamLauncherPath & "\SteamLauncher_" & $GameID & ".exe" ) Then
FileCopy(@ScriptDir & "\SteamLauncher.exe", $SteamLauncherPath & "\SteamLauncher_" & $GameID & ".exe",1)
$GameIcon = FileOpenDialog("Icon für <" & $GameName & "> oder Abbrechen für Standard-Icon", $FilePath & "\steam\games", "Icons (*.ico;*.exe)", 0)
FileCreateShortcut($SteamLauncherPath & "\SteamLauncher_" & $GameID & ".exe", @ScriptDir & "\" & $GameName , $FilePath, $FilePath & " " & $GameID, "Startet Steam-Spiel: " & $GameName, $GameIcon)
EndIf
Next
ShellExecute($SteamLauncherPath)Else
Run($CmdLine[1] & "\steam.exe -applaunch " & $CmdLine[2], $CmdLine[1])
EndIf