[Supermax]

Оказывается, что функции Windows API, экспортируемые библиотеками DLL можно вызывать и из AutoLISP-a.

Для начала надо установить СОМ объект DynamicWrapperX

http://forum.script-coding.info/viewtopic.php?id=2214

Все хелпы там.


Список API-функций DLL можно посмотреть так:

http://forum.script-coding.info/viewtopic.php?id=2457

Надо? Могу на AutoLISP перегнать.

[Baldares]

Хм, на свой страх и риск! А Вы рисковый Supermax, в полном соответствии с ником

[Supermax]

Ну, первый раз всегда стремно, но когда знаешь, что проверено и мин нет - все становится не так страшно. Наличие исходников, тоже стрем снимает.

[Pastor]

Вот бы еще примерчик, как этим всем воспользоваться из AutoLISP. Скажем, вызвать все ту же банальную MessageBoxW.

[Supermax]

Ща, попробую. Только в ванну поплавать схожу и займусь.

[Supermax]

Код:

[Выделить все]

(setq svr (vlax-get-or-create-object "DynamicWrapperX"))
(vlax-invoke-method svr "Register" "user32.dll" "MessageBoxW" "i=hwwu" "r=l")
(vlax-invoke-method svr "MessageBoxW" 0 "Hello, world!" "Test" 4)

Получите и распишитесь!

Так до ванной и не дошел.

[Supermax]

Очень рекомендую к использованию.
http://www.script-coding.info/LangMF.html
Весьма полезная для Автокада вещ!

[Supermax]

Кто знает полезные функции из DLL - кидайте сюда, пощупать охота.

[Кулик Алексей aka kpblc]

Все?

[Supermax]

А что, все сюда загрузить можешь? Да выбери, что поинтересней.

[Кулик Алексей aka kpblc]

В архиве - шедший в составе MS VS 6.0 API Text Viewer с файлами данных

[Supermax]

А поконкретнее, плииз! Какую функцию и из какой dll достать? Очень хочется разных интерфейсов наковырять, функций по работе с процессами или памятью. и т. п.

[Кулик Алексей aka kpblc]

Для VB вытащить объявления можно. Например:

Код:

[Выделить все]

Public Declare Function GetWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Public Declare Function GetWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetVersion Lib "kernel32" Alias "GetVersion" () As Long

Public Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Ну и т.д. Работать с WinAPI таким образом мне практически не доводилось.

[Supermax]

Одну скажи. И передаваемые ей данные какие надо? Где польза? Что бестолку справочными данными обмениваться? Любой оконный интерфейс или что еще. Только не кидайся кучами!

[Supermax]

GetVersion - Считывает номеp текущей веpсии Windows

Код:

[Выделить все]

(setq svr (vlax-get-or-create-object "DynamicWrapperX"))
(vlax-invoke-method svr "Register" "kernel32.dll" "GetVersion" "r=l")
(vlax-invoke-method svr "GetVersion")

Полезно если скомпилировать файл в котором работа только для указанного номера версии Windows и номер процессора еще узнать - и все.

[Supermax]

WinAPI по-русски - БОЛЬШОЙ справочник

http://develab.narod.ru/api/16.htm

[Кулик Алексей aka kpblc]

Ага, только "справочник" написан для применения в Delphi

[Supermax]

Супер!

GetMessagePos - Считывает положение куpсоpа для последнего сообщения, полученного из GetMessage. Тобишь, в момент запуска функции GetMessagePos, получаем цифры 32047168 определяющие положение курсора

Код:

[Выделить все]

(setq svr (vlax-get-or-create-object "DynamicWrapperX"))
(vlax-invoke-method svr "Register" "user32.dll" "GetMessagePos" "r=l")
(vlax-invoke-method svr "GetMessagePos" )

[Supermax]

GetMessageTime - Считывает вpемя, пpошедшее с момента пеpезагpузки системы, для последнего сообщения, полученного из GetMessage.

Код:

[Выделить все]

(vlax-invoke-method svr "Register" "user32.dll" "GetMessageTime" "r=l")
(vlax-invoke-method svr "GetMessageTime" )

[Supermax]

Функция GetDriveType

Описание:
function GetDriveType(Drive: Integer): Word;
Опpеделяет, является ли накопитель Drive съемным, фиксиpованным или удаленным.
Паpаметpы:
Drive: Пpовеpяемый накопитель, то есть, A: это 0, B: это 1 и т.д.
Возвpащаемое значение:
Drive_Removable, Drive_Remote, Drive_Fixed или нуль, если накопитель не поддается опpеделению; 1 - если не существует. См. pаздел "Типы накопителей, Drive_" в главе 1. http://develab.narod.ru/api/11.htm
функция находится в файле kernel32.dll

Код:

[Выделить все]

(setq svr (vlax-get-or-create-object "DynamicWrapperX"))
(vlax-invoke-method svr "Register" "kernel32.dll" "GetDriveType" "i=l" "r=l")
(vlax-invoke-method svr "GetDriveType" 0); проверяет диск А