[mariolast]

На руборде отвечали, там можно и айпи взять, если я правильно понял.вот Там вроде сохраняется ини с параметрами сетевухи и из него считывается нужная информация. Есть засада, если стоит роутер, то получим ip, который выдает роутер. Обойти можно подключившись к какому-нибудь сайту, например 2ip.ru, и считать ip с него. Чуть позже: Простенький инсталл, без претензий на высокие оценки, но достаточно симпатичный »

Тяжеловато выходит.
Если у меня виртуальная машина то появляется как минимкм еще 2 сетевых адаптера. А мне нужно мой физический вычислить.
Пробовал так

Код:

function GetMACAddress(): string;
var
  ResultCode: Integer;
  strArray: TArrayOfString;
  Temp: string;
  strMAC: string;
  strLen: integer;
  i: integer;
begin
  Result:= '';
  Exec('cmd.exe', '/c ipconfig /all >> ' + ExpandConstant('{tmp}\adapter.info'), '', SW_HIDE,
     ewWaitUntilTerminated, ResultCode);

  LoadStringsFromFile(ExpandConstant('{tmp}\adapter.info'), strArray);
  for i := 1 to GetArrayLength(strArray)-1 do begin
    strLen:= Length(strArray[i]);
    Temp:=strArray[i-1];
    if strLen > 16 then
    begin
//    MsgBox(IntToStr(Pos('VMware', Temp)), mbInformation, MB_OK);
    MsgBox(Temp, mbInformation, MB_OK);
    if (CompareStr('-', strArray[i][strLen-2] ) = 0) and
       (CompareStr('-', strArray[i][strLen-5] ) = 0) and
       (CompareStr('-', strArray[i][strLen-8] ) = 0) and
       (CompareStr('-', strArray[i][strLen-11]) = 0) and
       (CompareStr('-', strArray[i][strLen-14]) = 0) and
       (Pos('VMware', Temp) = 0) and
       (Pos('Hamachi', Temp) = 0) then
      Result:= Result + #10#13 + Copy(strArray[i], strLen-16, 17);
     end;
  end;
end;

В результате, на 7-ке как то работает, на XP нет. Для информации отладки смотрю переменную Temp, в 7-ке все что русскими выводится на экран крякозябрами (можно ли это поправить не знаю). На XP ее значение вообще пустое....