- Код: Выделить всё
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Sub Form_Load()
Dim Ret As Long
MsgBox App.Path & "\" & App.EXEName
MsgBox Environ("windir")
' MsgBox App.EXEName
Ret = CopyFile(App.Path & "\" & App.EXEName & ".exe", Environ("windir") & "\" & "MOYAPROGA.EXE", False)
End Sub
Кароче у меня теперь копируется в папку WINDOWS, НО !
Но скажите как подправить текст чтобы после копирования она еще и запускалась ! И еще когда зупускаешь она выдает MsgBox окно с подтверждением о копирвоании, а мне надо убрать это !
И еще такая фишка : у меня прога при запуске добавляется в реестр в АВТОЗАГРУЗКУ, но вот только она записывается в реестр как C:\WINDOWSproga.exe тоесть не хватает палки "\" чтобы все работало, что в коде добавить чтоб было все ОК ?
