Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Вниз

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
Внимательно читаем вопрос...
=)



Anatoly Podgoretsky   (2002-04-10 09:54) [4]

Win32 © (08.04.02 22:37)
А зачем ему имя пользователя и компьютера?




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.031 c
1-69780           Бульбаш               2002-04-10 10:17  2002.04.22  
Не пойму куда делись компонеты. Поставил вчера шестерку,


14-70026          Esa                   2002-03-18 13:40  2002.04.22  
AccessViolation


1-69791           Remy                  2002-04-09 18:50  2002.04.22  
Подскажите как поменять font в MainMenu !


14-69988          Hel                   2002-03-14 13:54  2002.04.22  
---|Ветка была без названия|---


1-69913           inko                  2002-04-09 15:40  2002.04.22  
Использование CheckBox...