[buhhu_nyx]

Сообщение от BBBCat

К сожалению у меня Delphi 7, но по логике получается, что что-то происходит на месте многоточия

Код:

Function InitApplication:boolean;
begin
...
 Main.CB.Items.Clear; //Tcombobox на главной форме проекта...

Что там такого страшного?

Вы ПРАВЫ и за это вам респект и большое спасибо.
Выше было вот что:

Код:

Procedure LocalIPHost;
var
  phe: PHostEnt;
  Buffer: Pansichar; // array[0..63] of Char; - это работало в Delphi6
  ...
begin
  if (WSAStartup($101, GInitData)<>0) then exit;
  Result := '';
  if (GetHostName(Buffer,128)<>0) then exit;
  phe := GetHostByName(buffer);
 ...
end;

Проблема была в типе переменной buffer и вызове 2 функций GetHostName && GetHostByName. Получается я выделял 1 байт памяти на строку для имени компа, понятно что имя получалось подлиннее и происходило наложение на следующие участки памяти полученного имени компа.
Глюк вылез именно после перехода на RAD2009. Глюк,к сожалению, у меня

Рабочее решение для моей ситуации следующее:

Код:

var
  phe: PHostEnt;
  Buffer: array[0..63] of Char;
begin
  if (GetHostName(@Buffer,sizeof(buffer))<>0) then exit;
  phe := GetHostByName(@buffer);
end;