Подскажите пожалуйста как в сеансе программы на Visual Basic 6.0 узнать имя текущего пользователя, а еще как прописать путь в текущий каталог с Виндой. Также есть вопрос как запихнуть в ехе-файл свою музыку, как например в некоторых крэках на Неро. Заранее спасибо
Добрый день, Евгений! 1. 'объявление АПИ ф-ии Private Declare Function WNetGetUserA Lib "mpr.dll" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long 'собственно код Dim sUserNameBuff As String * 255 sUserNameBuff = Space(255) Call WNetGetUserA(vbNullString, sUserNameBuff, 255&) GetUserName = Left$(sUserNameBuff, InStr(sUserNameBuff, vbNullChar) - 1) MsgBox GetUserName
2. 'объявление АПИ ф-ии Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long 'собственно код Dim str As String, ing As Long Const max = 144 str = Space(max) ing = GetWindowsDirectory(str, max) str = Left(str, ing) MsgBox str
3. Не знаю. Ответ отправлен: 21.09.2004, 18:12 Отправитель: Licvidator
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.