Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];

Вниз

Как из программы узнать имя компьютера?   Найти похожие ветки 

 
AM   (2002-11-06 13:47) [0]

Доброго всем дня! Подскажите про сабж пожалуйста. Я знаю, что можно через системный реестор, но конкретно где надо поточнее (так как это информация записана в нескольких местах).
Находится ли это в одном и том же месте для всех ОС?
А может можно попроще через WinAPI?


 
Oleg_Gashev   (2002-11-06 13:56) [1]

The GetComputerName function retrieves the computer name of the current system. This name is established at system startup, when it is initialized from the registry.

BOOL GetComputerName(
LPTSTR lpBuffer, // address of name buffer
LPDWORD nSize // address of size of name buffer
);



 
AM   (2002-11-06 15:28) [2]

А можно на примере кода Delphi, у меня использование этой функции почему-то вызывает ошибку...


 
Alex4444444444   (2002-11-06 15:41) [3]

Nu, navernoe



 
Alex4444444444   (2002-11-06 15:43) [4]

Pardon, ne tuda clicknul...

Nu, navernoe


GetMem(P, DoFiga);
try
if GetComputerName(P, DoFiga) then begin
SetString(Result, P, Length(P));
end;
finally
FreeMem(P);
end;



Страницы: 1 вся ветка

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

Наверх





Память: 0.44 MB
Время: 0.009 c
1-59138
vixic
2002-11-06 11:50
2002.11.18
регистрация!


14-59417
maxim2
2002-10-25 08:47
2002.11.18
Непорали сделать форум по Kylix ?


1-59107
mukha
2002-11-07 21:13
2002.11.18
QReport в Delphi-7 - есть ли он?


1-59104
Petr2002
2002-11-07 23:05
2002.11.18
sendkeys


14-59414
KSergey
2002-10-31 09:08
2002.11.18
Я возмущен!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский