Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.01.2010, 10:30   #1
4BlooD
Пользователь
 
Регистрация: 03.03.2008
Сообщений: 11
По умолчанию Получение "Имени компьютера"

Хочу чтоб при нажатии кнопки выдавалось сообщение с именем компьютера. Нарыл в книге функцию, а запустить ее никак не получается.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var Buf: array[0..MAX_COMPUTERNAME_LENGTH] of Char;
    size:DWORD = MAX_COMPUTERNAME_LENGTH + 1;
begin
if GetComputerName(Buf,size)
then ShowMessage(buf);
end;
Выдает ошибку в строке: size:DWORD = MAX_COMPUTERNAME_LENGTH + 1;
Может там просто еще чего дописать надо...

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

Последний раз редактировалось mihali4; 23.01.2010 в 12:08.
4BlooD вне форума Ответить с цитированием
Старый 23.01.2010, 12:11   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Код:
function readcomputername: string;
var 
i:dword; 
p:pchar; 
begin 
i:=255; 
getmem(p, i); 
getcomputername(p, i); 
result:=string(p); 
freemem(p); 
end;
mihali4 вне форума Ответить с цитированием
Старый 23.01.2010, 16:28   #3
4BlooD
Пользователь
 
Регистрация: 03.03.2008
Сообщений: 11
По умолчанию

Спасибо за помощь mihali4, кнопочку # увидел :-)
4BlooD вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
"Дайте мне поллитра... Компьютера" Alex Cones Свободное общение 4 08.11.2009 18:45
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" aleksei78 Microsoft Office Excel 13 25.08.2009 12:04
Получение "скрытой" информации из bmp Alex Cones Мультимедиа в Delphi 6 11.06.2009 11:07
Винда ХР не хочет завершаться. Остается экран "Завершение работы компьютера" mitrandir Софт 7 12.06.2007 08:59