Форум: "Потрепаться";
Текущий архив: 2003.08.14;
Скачать: [xml.tar.bz2];
Внизиспользовавание динамической загрузки Найти похожие ветки
← →
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
← →
rastochnik (2003-06-18 12:27) [2]во блин, пойду в чат поблагадарю:)
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.08.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c