用NetUserSetInfo修改guest的信息。(注意要用宽字符)
var ui: ^USER_INFO_1;
var MacName: array[0..39] of Char; // 机器名,本地可设为空
var UserName: array[0..39] of Char; // 用户名
var Password: array[0..39] of Char; // 密码
... if NetUserGetInfo(@MacName, @UserName, 1, Pointer(ui)) = NERR_SUCCESS then
if ui <> nil then
begin
ui.usri1_password := @Password;
if NetUserSetInfo(@MacName, ui.usri1_name, 1, ui, nil) = NERR_SUCCESS then
Writeln(S_CHANGE_SUCCESSED);
NetApiBufferFree(ui);
end
end;
var ui: ^USER_INFO_1;
var MacName: array[0..39] of Char; // 机器名,本地可设为空
var UserName: array[0..39] of Char; // 用户名
var Password: array[0..39] of Char; // 密码
... if NetUserGetInfo(@MacName, @UserName, 1, Pointer(ui)) = NERR_SUCCESS then
if ui <> nil then
begin
ui.usri1_password := @Password;
if NetUserSetInfo(@MacName, ui.usri1_name, 1, ui, nil) = NERR_SUCCESS then
Writeln(S_CHANGE_SUCCESSED);
NetApiBufferFree(ui);
end
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货