Проблема с CommandLine

[Stas]

У меня такая проблема:
Функция GetCommandLine возвращает не значение командной
строки, а адрес памяти в котором это значение хранится.
VB разумеется не имеет встроеных функций для прямого
обращения к ячейкам памяти. Подскажите как это сделать
при помощи API. Я конечно заставил прогу работать с
командной строкой на при помощи какой-то мелко библиотеки
от Desaware в которую по их словам якобы включены функции
которые трудно риализовать на вб. Там и была функция которая
мне нужна. Это конечно хорошо но хотелось бы без посторонних
библиотек.
Зарание спасибо за помощь.

[Demonx]

Command()

[GSerg]

Хм.
Скажу я так.
Если функция возвращает указатель на строку, то сей указатель можно объявить как long, и тогда придётся юзать CopyMemory, а можно объявить как string, и ничего юзать не придётся. Ибо string суть bstr*, но даже если возвращают lpstr*, VB справится.

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

Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As String

Различие GetCommandLine и Command в том, что первая возвращает строку запуска самой проги и аргументы запуска, а вторая - только аргументы.

[Vi]

Ибо string суть bstr*, но даже если возвращают lpstr*, VB справится.

Вот именно, что string суть bstr, но все остальные - lpstr и lpolestr - отнюдь не строки vb.
У меня код

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

Declare Function GetCommandLine Lib "kernel32" _
            Alias "GetCommandLineA" () As String
Dim s As String
s = GetCommandLine


вылетает. Вот тебе и строка.

[GSerg]

Что-то вы, батенька, мудрите.

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

Option Explicit

Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As String

Private Sub Form_Load()
  Dim a As String
  a = GetCommandLine
  MsgBox a
End Sub

Прекрасно работает!