Нет ли здесь ошибки ? [D7, Win2k, WinXP]
Страницы:
<
1
2
>
ANB © (2005-12-20 12:06:00)
function GetComputerName : PChar;
var Name : String;
Size : DWord;
begin
Size := MAX_COMPUTERNAME_LENGTH + 1;
SetLength(Name, Size);
Windows.GetComputerName(PAnsiChar(Name), Size);
SetLength(Name, Size);
Result := PChar(Name);
end;
Насколько корректно будет работать эта функция, если
разместить ее в DLL и вызывать не из делфи (из Wise) ?
PS. Вообще то работает, хотел бы оценить надежность
кода.
Dmitrij_K (2005-12-20 12:25:00) [21]
имхо корректней так
function GetComputerName : PChar;
var Size : DWord;
begin
Size := MAX_COMPUTERNAME_LENGTH + 1;
GetMem(Result, Size);
Windows.GetComputerName(Result, Size);
end;
ябыличнотакделалбы
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
