Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
ВнизWinXP - Реестр Найти похожие ветки
← →
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.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c