использовавание динамической загрузки

← →
rastochnik © (2003-06-18 12:01) [0]

Здорова прогеры. Добавляю пользователя в группу...если прописываю статически
function NetLocalGroupAddMember; external netapi32lib name "NetLocalGroupAddMember";
- работает, а если:

type
TNetLocalGroupAddMember = function(servername: LPCWSTR; groupname: LPCWSTR; membersid: PSID): NET_API_STATUS;

...

function NetLocalGroupAddMember(servername: LPCWSTR; groupname: LPCWSTR; membersid: PSID): NET_API_STATUS;
const
cProc = "NetLocalGroupAddMember";
var
hVariable: THandle;
fVariable: TNetLocalGroupAddMember;
begin
Result:= 0;
try
hVariable:= LoadLibrary(NetApi32lib);
if (hVariable = 0) then
ErrorMessage("Not load netapi32.dll", 0)
else
begin
@fVariable:= GetProcAddress(hVariable, cProc);
if (@fVariable = nil) then
ErrorMessage("Not find function " + cProc, 0)
else
begin
Result:= fVariable(servername, groupname, membersid);
end;
FreeLibrary(hVariable);
end;
except
ErrorMessage("Unknown error", 0);
Result:= GetLastError;
end;
end;

не работает GetLastError:No mapping for the unicode character exists in the target multi-byte code page
Может кто-чего подскажет:)

← →
Игорь Шевченко © (2003-06-18 12:18) [1]

type
TNetLocalGroupAddMember = function(servername: LPCWSTR; groupname: LPCWSTR; membersid: PSID): NET_API_STATUS; stdcall

во блин, пойду в чат поблагадарю:)

использовавание динамической загрузки Найти похожие ветки