28. februar 2008 - 23:04Der er
10 kommentarer og 1 løsning
fil placering med en ekstra skråstreg
jeg har følgene kode:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CheckForExistingInstance()
'hide the program from taskbar and make it invisible Me.Visible = True Me.ShowInTaskbar = False
'make the program execute on startup Dim path path = App_Path() Dim Startup_key As String Startup_key = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run" Dim Reg As Object Reg = CreateObject("wscript.shell") Reg.RegWrite(Startup_key & "winmx32", path & "\" & "winmx32" & ".exe")
End Sub Public Sub CheckForExistingInstance() 'check for existing instances of this program, if any is found, close this one. If Process.GetProcessesByName _ (Process.GetCurrentProcess.ProcessName).Length > 1 Then Application.Exit() End If End Sub
når programmet starter skal den lægge en streng ind i HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run med programmets filplacering og navn, (i dette tilfælde: C:\Users\Martin Tandrup\Desktop\jumpscar\winmx32\bin\Debug\\winmx32.exe) hvor kommer den ekstra \ efter debug fra?
er der en bedre måde end: Startup_key & "winmx32", path & "\" & "winmx32" & ".exe" at skrive placering på?
Namespace E Public Class MainClass Public Shared Sub Main(ByVal args As String()) Dim base As String = AppDomain.CurrentDomain.BaseDirectory() Console.WriteLine(base & "foobar.exe") Console.WriteLine(Path.Combine(base, "foobar.exe")) Console.ReadKey() End Sub End Class End Namespace
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.