[Visual Basic-Frage] EXE ohne Pfad angabe?

Aus der Registry auslesen, dort sollte der Pfad angegeben sein

Also der Pfad zur Registry von SAMP ist so:
HKEY_CURRENT_USER\Software\SAMP
Name -> gta_sa_exe | Wert -> C:\Program Files\Rockstar Games\GTA San Andreas\gta_sa.exe (bei mir)
Name -> PlayerName | Wert -> Name des Spielers beim SA:MP Starten, könnte für dich nützlich sein.

Wie das in VB geht, weiß ich nicht, in AutoIt könnte ich es dir zeigen.

Edit: Könnte für dich Interessant sein:
http://www.vbarchiv.net/tipps/details.php?id=907
[url]http://msdn.microsoft.com/de-de/library/bb979300.aspx[/url

Edit2:
Falls es dich Interessiert, so siehts in AutoIt aus:

$var2 = StringReplace(RegRead("HKEY_CURRENT_USER\Software\SAMP", "gta_sa_exe"),"gta_sa.exe","samp.exe")
MsgBox(4096, "Sa-Mp Directory:", $var2)
Run($var2)

oder ganz kurz :

Run(StringReplace(RegRead("HKEY_CURRENT_USER\Software\SAMP", "gta_sa_exe"),"gta_sa.exe","samp.exe"))

Oder du rufst den Link samp://IP:Port auf

Zitat von Flummi

Wie das in VB geht, weiß ich nicht, in AutoIt könnte ich es dir zeigen.

Und ich "translate" den Code mal zu VB

Kannste einfach übernehmen
(Hab das Beispiel auf einen Button Klick Bezogen)

Private Sub Test_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Test_Button.Click
    	Dim Samp_Path As String = My.Computer.Registry.CurrentUser.OpenSubKey("Software").OpenSubKey("SAMP").GetValue("gta_sa_exe")
    	If My.Computer.FileSystem.FileExists(Samp_Path) Then
        	Try
            	Shell(Samp_Path, AppWinStyle.NormalFocus, False)
        	Catch ex As Exception
            	MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
        	End Try
    	Else
        	MessageBox.Show("Keine Samp Installation gefunden!", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    	End If
	End Sub

Oder ne sehr simple Lösung:

Button erstellen
Button den Code geben = > Einstellungen.show

(Einstellung [Form] erstellen)

In die Form eine Textbox
und 2 Buttons

Beim Aufrufen der Form
Textbox1.Text = My.settings. speicherort
Dann den Code bei Button 1 [Speichern button]
My.settings.speicherort = Textbox1.Text
My.Settings.Save

Button2
Me.Close

Fertig Bei Frage stehe ich gerne zur Verfügung. Auch andere Fragen wo du nicht weißt
wie du weiter kommst ICQ: 364045