Запус ексе

[neic]

Нужно открыть файл(через VB для сильно умных) чтобы он не обраща внимания на пробелы и русские буквы(ну бейск).
Вот пример(что нужно открыть):
C:\ЯЯЯЯЯ Визуал Бейсик\vb.exe

[hCORe]

Тебе помогут (в порядке увеличения сложности):
Shell
ShellExecute API
ShellExecuteEx API

"Any more questions? Then, I'll bring rocket launcher with me next time. Microsoft Is Back!.."

[neic]

Shell пробовал вариант исключён!

А других где можно надыбать инфо?

[tyomitch]

Поиск рулит

[_Мика_]

Да что вы над всеми так издеваетесь!!

Вот пример по второму

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

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Send an E-Mail to the KPD-Team
    ShellExecute Me.hwnd, vbNullString, "mailto:KPDTeam@Allapi.net", vbNullString, "C:\", SW_SHOWNORMAL
End Sub


а вот по третьему

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

Const SEE_MASK_INVOKEIDLIST = &HC
Const SEE_MASK_NOCLOSEPROCESS = &H40
Const SEE_MASK_FLAG_NO_UI = &H400
Private Type SHELLEXECUTEINFO
    cbSize As Long
    fMask As Long
    hwnd As Long
    lpVerb As String
    lpFile As String
    lpParameters As String
    lpDirectory As String
    nShow As Long
    hInstApp As Long
    lpIDList As Long
    lpClass As String
    hkeyClass As Long
    dwHotKey As Long
    hIcon As Long
    hProcess As Long
End Type
Private Declare Function ShellExecuteEx Lib "shell32.dll" Alias "ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long
Sub ShowProps(FileName As String, OwnerhWnd As Long)
    Dim SEI As SHELLEXECUTEINFO
    Dim r As Long
    With SEI
        'Set the structure's size
        .cbSize = Len(SEI)
        'Seet the mask
        .fMask = SEE_MASK_NOCLOSEPROCESS Or _
         SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
        'Set the owner window
        .hwnd = OwnerhWnd
        'Show the properties
        .lpVerb = "properties"
        'Set the filename
        .lpFile = FileName
        .lpParameters = vbNullChar
        .lpDirectory = vbNullChar
        .nShow = 0
        .hInstApp = 0
        .lpIDList = 0
    End With
    r = ShellExecuteEX(SEI)
End Sub
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    ShowProps "c:\config.sys", Me.hwnd
End Sub


[FaKk2]

_Мика_

Еще один браконьер. Зачем рыбку поймал? Ты теперь его всю жизнь кормить будешь?

[Шурик]

Тему создавать не буду....
ВОПРОС:
есть такая встроеная функция SHELL
когда ее используешь вызываеца какая-нить айпишка или нет..??
и вобще какие есть функции которые построены на API???

[Sirik]

попробуй с кавычками

[GSerg]

Скажи лучше, какие функции не построены на API...

[hCORe]

VarPtr

[alibek]

GSerg, например InStr()
Читал где-то, что она компилируется непосредственно в машинный код, без обращения к виртуальной машине, за что мною нежно любима

[Шурик]

ладно... если так, то как можно отловить вызов этой API'шки???
точнее к каким API обращаюца функции???

[alibek]

Поищи софт TracePlus (конкретный продукт TracePlus/Win32), он тебе в этом поможет.

[Шурик]

ага... спасибо!!!