Variable verliert Wert nach der Zuweisung

[Luckie]

Siehe mein Edit oben:

Delphi-Quellcode:

function GetItemTextW(hParent: THandle; ID: Integer): WideString;
var
  p                 : PWideChar;
  len               : Integer;
  s                 : WideString;
begin
  s := '';
  len := SendDlgItemMessageW(hParent, ID, WM_GETTEXTLENGTH, 0, 0);
  if len > 0 then
  begin
    try
      p := GetMemory(len+1);
      if Assigned(p) then
      begin
        GetDlgItemTextW(hParent, ID, p, len+1);
        SetString(s, p, len+1);
      end;
    finally
      FreeMemory(p);
    end;
  end;
  result := s;
end;

Und die Deklaration:

Delphi-Quellcode:

var
    Computer          : WideString;

Mehr ist es nicht.