Форум: "Начинающим";
Текущий архив: 2006.10.15;
Скачать: [xml.tar.bz2];

Вниз

вызов "приплюснутой" функции   Найти похожие ветки 

← →
Sam Stone ©   (2006-09-27 18:32) [0]

Доброго всем времени суток. Как описать и вызвать в дельфи след. ф-цию
HRESULT GetNetScheduleAccountInformation(
 LPCWSTR pwszServerName,
 DWORD ccAccount,
 WCHAR wszAccount[]
);
wszAccount
[out] Array of wide characters, including the null-terminator, that receives the account information. ?
Лежит в Mstask.dll
Описание swzAccount как widestring, pwidestring, widechar, pwidechar не помогло :(

---

← →
umbra ©   (2006-09-27 19:16) [1]

pwidechar, по идее, должно было помочь

---

← →
Sam Stone ©   (2006-09-27 19:32) [2]

Где я тут накосячил? Наверняка что-то глупое.

var f:function(s:PWideChar;L:DWORD;O:PWideChar):HRESULT;stdcall;
h:THandle;
st:pwidechar;
begin
 h:=LoadLibrary("mstask.dll");
 f:=GetProcAddress(h,"GetNetScheduleAccountInformation");
 if f(nil,64,st)=S_OK then //ф-ция возвращает S_OK если учетка не SYSTEM и инфа положена в "O";
 ShowMessage(st);//абракадабра :(
end;

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.10.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.048 c