procedure TForm1.FormCreate(Sender: TObject);
var
buf: array[0..127] of char;
n: integer;
begin
n:=128;
if GetUserName(buf, n) then begin
Edit1.Text:=buf;
end;
end;
...
h:=LoadLibrary('C:\Windows\System\MPR.DLL');
...
...
if h<>0 then begin
ChangePassword:=GetProcAddress(h, 'PwdChangePasswordA');
if Assigned(ChangePassword) then begin
ChangePassword('MSNP32', Handle, 0, integer(@cpi));
end;
...
type
TChangePwdInfo=record
lpUsername: PChar;
lpPassword: PChar;
cbPassword: DWORD;
end;