代碼: 選擇全部
{ 檢查NT登入帳號密碼 }
function checkNTPass(iUserID, iPassword, iRemoteName: String): Boolean;
var
lpNetResource: _NETRESOURCE;
begin
lpNetResource.dwType := RESOURCETYPE_ANY;
lpNetResource.lpLocalName := Nil;
lpNetResource.lpRemoteName := PChar(iRemoteName);
lpNetResource.lpProvider := Nil;
case WNetAddConnection2(lpNetResource, PChar(iPassword), PChar(iUserID), 0) of
NO_ERROR: begin
Result := True;
if WNetCancelConnection2(PChar(iRemoteName), 0, true) <> NO_ERROR then
//showMessage('無法離線')
else
//showMessage('已離線');
end else
Result := False;
end;
end;