WinXP - Реестр

← →
P. (2002-04-08 19:48) [0]

Где именно хранятся имена user и organization?
И как загрузить в Label.

← →
Chepel (2002-04-08 21:45) [1]

Я использую
HKEY_CURRENT_USER\Software\Microsoft\MS Setup (ACME)\User Info

uses Registry; procedure TForm1.Button1Click(Sender: TObject); const DefCompany = "DefCompany"; DefName = "DefName"; begin with TRegistry.Create do try OpenKeyReadOnly("\Software\Microsoft\MS Setup (ACME)\User Info"); if ValueExists(DefName) then Label1.Caption := "User: " + ReadString(DefName); if ValueExists(DefCompany) then Label2.Caption := "Company: " + ReadString(DefCompany); finally Free; end; end;

← →
Win32 © (2002-04-08 22:37) [2]

zachem s reestrom vozit"sya? vot normal"niy kod dlya polucheniya imeni pol"zovatelya i komp"yutera:

procedure TForm1.Button1Click(Sender: TObject);
var
Size: cardinal;
PRes: PChar;
BRes: boolean;
begin
// Имя компьютера
Size := MAX_COMPUTERNAME_LENGTH + 1;
PRes := StrAlloc(Size);
BRes := GetComputerName(PRes, Size);
if BRes then Label1.Caption := StrPas(PRes);

// Имя пользователя
Size := MAX_COMPUTERNAME_LENGTH + 1;
PRes := StrAlloc(Size);
BRes := GetUserName(PRes, Size);
if BRes then Label2.Caption := StrPas(PRes);
end;

end.

← →
Chepel (2002-04-10 00:17) [3]

>> Win32
Внимательно читаем вопрос...
=)

WinXP - Реестр Найти похожие ветки