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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.07.2011, 19:10   #1
spydark91
Форумчанин
 
Регистрация: 01.06.2011
Сообщений: 215
По умолчанию установить имя компьютера

Код:
Function CompName:string;
var i:DWORD;
    p:PChar;
begin
i:=255;
GetMem(p, i);
GetComputerName(p, i);
Result:=String(p);
FreeMem(p);
end;

computername:=compname;
lengg:=length(computername);
prov:=compname;
for ii:=1 to lengg do
  begin
    if ord(computername[ii]) in [192..223,224..255] then
      begin
      compnamee:=computername;
       repeat
                    InputQuery('Неверное имя компьютера', 'Для корректной работы программы имя компьютера должно собедражть латинские буквы. Введите, пожалуйста, новое имя.', compnamee);
           if (compnamee<>prov) and (ord(compnamee[ii]) in [65..90,97..122]) then
            begin
             SetComputerName(PChar(compnamee));
             application.MessageBox('Для изменения имени компьютера необходимо выполнить перезагрузку. Сохраните все данный и нажмите "ОК".','Оповещение',0);
             MyExitWindows(EWX_REBOOT or EWX_FORCE); 
                                                                          ////////////////как перезагрузить??
            end
           else showmessage('Измените, пожалуйста, имя компьютера. Пример: Rodion-PC');
        until not(ord(compnamee[ii]) in [192..223,224..255]);
      end;
  end;
сначала проверяется из каких букв состоит имя компьютера,если из русских,то пользователь вводит новое имя и оно устанавливается(для этого нужно перезагружать компьютер?)
проблема- не устанавливается новое имя компа,даже после перезагрузки
spydark91 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Узнать имя листа, если известно кодовое имя tae1980 Microsoft Office Excel 3 20.03.2011 21:57
определить имя компьютера HelloWord Общие вопросы .NET 3 15.01.2010 22:06
Определение имя компьютера и айпи адресса 0x007f Помощь студентам 5 20.08.2009 21:29
Как считать hostid и/или имя компьютера Ирина_28 Работа с сетью в Delphi 5 17.08.2009 09:03
Имя компьютера asale Microsoft Office Excel 3 01.08.2007 22:05