der Fehler passiert definitv in der Funktion vom Kernel
siehe Programmschnippsel:
Delphi-Quellcode:
function GetWinComputerName(var AComputername: String): Integer;
var
Size: DWORD;
Buffer: array [0..MAX_COMPUTERNAME_LENGTH] of Char;
begin
AComputername := '';
Size := sizeof( Buffer );
setLastError(0);
if Windows.GetComputerName(Buffer, Size) then
begin
if Size>1 then
begin
SetString(AComputername, Buffer, Size);
Result := S_OK;
end
else
Result := S_False;
end
else
Result := GetLastError;
end;
...
funktioniert das bei Euch ohne LastError, oder ist es wie ich es vermute? (WinXP 2002 SP2)