[help]Как скопировать файл на рабочий стол и в главное меню?

[zaf]

Добрый день!

У меня есть 3 вопроса

1) как можно скопировать на робочий стол файл (незная реального адреса)

2) как добавить ярлык в Главное Меню?

3) как сделать Автозапуск (при влючении компьютера)

Подскажите plz

,ZAF

[Хакер]

Что значит не зная реального адреса?
Если ты имеешь ввиду то что *:\Documents And Settings\***\

То

Environ("USERPROFILE") + добавляй "Рабочий стол\" или что тебе там надо

__________

Автозагрузка:
Создаём ключ с любым именем в ветке
/Software/Microsoft/Windows/CurrentVersion/Run/

ключ должен быть строковым - его значение - путь к программе, которую нужно запустить при запуске виндозы.

[alibek]

Environ("USERPROFILE") + добавляй "Рабочий стол" или что тебе там надо

Зачем? Ведь есть реестр и/или SpecialFolders.

[Хакер]

Любую проблему я сначала пытаюсь решить встроенными средствами языка, и только потом прибегать а API и прочему...

[zaf]

Любую проблему я сначала пытаюсь решить встроенными средствами языка, и только потом прибегать а API и прочему...

А в папку Windows как копировать?

[Хакер]

environ("windir")

[zaf]

environ("windir")

FileCopy App.Path & "" & -----, Environ("windir") & "" & Msinet.ocx На запятую жалуется! Почему?

[Хакер]

Проверь чтоб ампы не были слитны с каким нибудь словом (иначе он его за хекс принимает), а вообще лучше нафиг их не использовать - не вижу смысл преобразовывать стинги в стринги.

[zaf]

FileCopy "C:\Documents and Settings\Karki\Рабочий стол\Проэкт VB\WareZ" & "\" & "Msinet.ocx", Environ("windir") & "\system32\" & "Msinet.ocx"


Почему пишет Premission denied ??

[alibek]

Любую проблему я сначала пытаюсь решить встроенными средствами языка, и только потом прибегать а API и прочему...

А знаешь, что даст твой метод на не русскоязычной Windows?

[Хакер]

Почему пишет Premission denied ??

Потому что файл используется другой прогрой или другим компонентом, короче он занят и его нельзя переписать...

А знаешь, что даст твой метод на не русскоязычной Windows?

environ - работает на любой версии, а вот что я буду прибавлять к environ это уже моё дело, и если я буду писать софт, который будут юзать на не-советских виндах я естественно предусмотрю такой вариант.

[zaf]

Почему пишет Premission denied ??

Потому что файл используется другой прогрой или другим компонентом, короче он занят и его нельзя переписать...

А знаешь, что даст твой метод на не русскоязычной Windows?

environ - работает на любой версии, а вот что я буду прибавлять к environ это уже моё дело, и если я буду писать софт, который будут юзать на не-советских виндах я естественно предусмотрю такой вариант.

Как проверить есть файл или нет?

[Хакер]

Тебе нужно проверить наличие файла?

[Amed]

Хакер, а если софт, который ты пишешь, потребуется поставить не на американскую, а на итальянскую систему с соответствующим названием папки?

[zaf]

сучайно 2 раза нажал

[zaf]

Хакер, а если софт, который ты пишешь, потребуется поставить не на американскую, а на итальянскую систему с соответствующим названием папки?

ну не будет он для Шотландцев писать софт!:)

Как проверить есть файл или нет?

Тебе нужно проверить наличие файла?

А как каким образом?
Посвяти плиз

[alibek]

environ - работает на любой версии, а вот что я буду прибавлять к environ это уже моё дело, и если я буду писать софт, который будут юзать на не-советских виндах я естественно предусмотрю такой вариант.

Ну предусмотри, как называется папка рабочего стола на голландской винде? А на иврите? А на любом компе, где админ сменил стандартные расположения специальных папок на (например) C:\Profiles\<user>\Десктоп?

[Хакер]

2All, если я буду писать такую интернациональную прогу, я естественно об этом позабочусь... И точка на этом.

[tyomitch]

Хакер, а зачем тогда советовать изначально кривые решения?

Если нужно, чтобы эта прога работала только у тебя на компе -- вбей туда полный путь к своим документам.
Если нужно, чтобы она работала ещё у кого-то -- имей в виду, что у большого количества россиян Винда нелокализованная, а значит, Environ + "Рабочий стол" не прокатит.

Не говоря уже о том, что в Win9x переменной USERPROFILE нет совсем.

Как проверить есть файл или нет?

Тебе нужно проверить наличие файла?

А как каким образом?
Посвяти плиз

Кривой способ: If Len(Dir(FileName)) Then 'файл существует

Некривой способ: делать с файлом что тебе нужно, и отлавливать ошибку. (Что, если файл появится либо исчезнет как раз между твоей проверкой, и собственно работой с ним?)

[Хакер]

tyomitch, Win9X - скоро будет чем-то вроде легенде о Лохнесском чудовище. А у кого стоит нелок. винда (кстати у нас таких единицы) - то она стоит английская - и там следовательно название папки будет понятное.

Впрочем, я только предложил.

[tyomitch]

tyomitch, Win9X - скоро будет чем-то вроде легенде о Лохнесском чудовище.

Расскажи это BV, GSerg-у, и остальным в числе 4% посетителей форума, которые сидят под Win98.

[zaf]

tyomitch, Win9X - скоро будет чем-то вроде легенде о Лохнесском чудовище.

Расскажи это BV, GSerg-у, и остальным в числе 4% посетителей форума, которые сидят под Win98.

Че спорите?
Подскажи правильный способ тогда!

И можете показать пример который в реестр на автозапуск добавит файл C:\Doc\ss.exe

че за цифра такая 40000?
типа 40000чел за 7 часов просмотрели мой топик?

[Хакер]

Код: Выделить всё


Public Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal szData As String, ByVal cbData As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal szData As String, ByRef lpcbData As Long) As Long


Public Declare Function RegCreateKeyEx Lib "advapi32" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long


Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_DYN_DATA = &H80000006

Public Const KEY_QUERY_VALUE = &H1         'Permission to query subkey data.
Public Const KEY_SET_VALUE = &H2           'Permission to set subkey data.
Public Const KEY_CREATE_SUB_KEY = &H4
Public Const KEY_ENUMERATE_SUB_KEYS = &H8
Public Const KEY_NOTIFY = &H10
Public Const KEY_CREATE_LINK = &H20
Public Const KEY_READ = KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY
Public Const KEY_WRITE = KEY_SET_VALUE Or KEY_CREATE_SUB_KEY
Public Const KEY_ALL_ACCESS = KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_SUB_KEY Or KEY_CREATE_LINK Or KEY_SET_VALUE

Public Const REG_OPTION_NON_VOLATILE = 0&
Public Const REG_OPTION_VOLATILE = &H1

Public Type SECURITY_ATTRIBUTES
  nLength As Long
  lpSecurityDescriptor As Long
  bInheritHandle As Long
End Type

Public Enum RegTypes
    RegNonee = 0
    RegSZ = 1
    RegExpandSz = 2
    RegBinary = 3
    RegDword = 4
    RegDwordLittleEndian = 4
    RegDwordBigEndian = 5
    RegLink = 6
    RegMultiSz = 7
    RegResourceList = 8
    RegFulResourceDesc = 9
End Enum

'Чтение значения
Public Function RegGetValue(Root As Long, SubKey As String, Key As String) As String
    Dim Buffer As String, hKey As Long, nType As Long, nSize As Long
    RegGetValue = ""
    If Not RegOpenKeyEx(Root, SubKey, 0, KEY_READ, hKey) Then
        nSize = 0
        RegQueryValueEx hKey, Key, 0, nType, Buffer, nSize
        If hKey And nSize > 0 And nType = RegSZ Then
            Buffer = Space(nSize + 1)
            RegQueryValueEx hKey, Key, 0, nType, Buffer, nSize
            RegGetValue = Left(Buffer, nSize - 1)
            RegCloseKey hKey
        End If
    End If
End Function

'Запись в реестр
Public Sub RegSetValue(Root As Long, SubKey As String, Key As String, value As String)
    Dim hKey As Long, sa As SECURITY_ATTRIBUTES, nDisp As Long
    If Not RegCreateKeyEx(Root, SubKey, 0, vbNull, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, sa, hKey, nDisp) Then
        RegSetValueEx hKey, Key, 0, RegSZ, value, Len(value) + 1
        RegCloseKey hKey
    End If
End Sub

RegSetValue XYZ, "Software/Microsoft/CurrentVersion/Run", "MyAutoRunProga777", """c:\doc\ss.exe"""


Где XYZ - либо currentuser либо localmachine, в зависимости от того как тебе какой автозапуск, только для того усера, на котором он ставится, или глобально для компа.

__________
Про число:

Код: Выделить всё


UPDATE " . TOPICS_TABLE . "
        SET topic_views = topic_views + 1
        WHERE topic_id = $topic_id


выполняется при каждом viewtopic'е так что либо да, либо шутка админов...

[tyomitch]

tyomitch, Win9X - скоро будет чем-то вроде легенде о Лохнесском чудовище.

Расскажи это BV, GSerg-у, и остальным в числе 4% посетителей форума, которые сидят под Win98.

Че спорите?
Подскажи правильный способ тогда!

http://bbs.vbstreets.ru/viewtopic.php?t=19706

[zaf]

RegSetValue XYZ, "Software/Microsoft/CurrentVersion/Run", "MyAutoRunProga777", """c:\doc\ss.exe"""

Software/Microsoft/CurrentVersion/Run
путь правильный?
У мя в реестре тут "Software/Microsoft/" такго "CurrentVersion" нет

Может так нада?
Software/Microsoft/windows/CurrentVersion/Run

[Хакер]

Да! Чёт я вообще уже стал... наверно на пенсию пора...

[zaf]

Да! Чёт я вообще уже стал... наверно на пенсию пора...

Да лана тебе Еще проживеш лет 100

__________________

Пол кода красным выделяет

Вот я приклеил посмотри

[Хакер]

Поправил...

[MeMBus]

оффтоп:
Просмотров: 50459
Посмотрел на цифру и зашел в топик... что-то не то...

[zaf]

:lol:

Поправил...

Спасибо!
Ща посмотрю

оффтоп:
Просмотров: 50459
Посмотрел на цифру и зашел в топик... что-то не то...

Что занчит ОФФТОП
Тут мне помогают разбираться!