Форум: "Сети";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];
ВнизКак получить имя текущего пользователя в NT сервисе Найти похожие ветки
← →
Crowned (2002-01-17 11:12) [1]Выкинь лишнее из этой процедурки, мне лень...
procedure TForm1.HardwareInfo(var ComputerName,UserName,ProcessorType,NumberOfProcessors :string);
var
Size : cardinal;
PRes : PChar;
BRes : boolean;
lpSystemInfo : TSystemInfo;
begin
// Имя компьютера
Size := MAX_COMPUTERNAME_LENGTH + 1;
PRes := StrAlloc(Size);
BRes := GetComputerName(PRes, Size);
if BRes then ComputerName := StrPas(PRes);
// Имя пользователя
Size := MAX_COMPUTERNAME_LENGTH + 1;
PRes := StrAlloc(Size);
BRes := GetUserName(PRes, Size);
if BRes then UserName := StrPas(PRes);
// Процессор
GetSystemInfo(lpSystemInfo);
// ProcessorType := IntToStr(lpSystemInfo.dwProcessorType);wProcessorArchitecture
ProcessorType := IntToStr(lpSystemInfo.dwProcessorType);
NumberOfProcessors :=IntToStr(lpSystemInfo.dwNumberOfProcessors);
end;
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c