Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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.




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




Наверх







Память: 0.73 MB
Время: 0.103 c
4-70063           Casee                 2002-02-18 11:38  2002.04.22  
Обмен данными м/у 32 и 16 разрядными приложениями.


1-69792           lipskiy               2002-04-09 23:36  2002.04.22  
Как перекрыть стандартные цвета виндов?


1-69888           panoff                2002-04-09 11:53  2002.04.22  
Юзер создаёт кол-во строк в MENUItem


14-69981          Philipps              2002-03-14 09:40  2002.04.22  
Как сделать proxy сервер на делфи?


1-69830           kopachev              2002-04-09 10:59  2002.04.22  
Про StringGrid