| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

вызов "приплюснутой" функции [D7, XP]

Sam Stone ©   (2006-09-27 18:32:00) 

Доброго всем времени суток. Как описать и вызвать в дельфи след. ф-цию
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 не помогло :(

---

Sam Stone   (2006-09-27 19:32:00) [1]

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

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;

---

umbra   (2006-09-27 19:16:00) [2]

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

---

Наверх