UUID Windowsrechner auslesen [gelöst]

[Singlepin]

Ich lese mit

Code: Alles auswählen

wmic path win32_computersystemproduct get uuid

in der Eingabeaufforderung die UUID aus.

Mit

Code: Alles auswählen

function GetWindowsUUID: string;
var
  Process:TProcess;
  Output:TStringList;
  Cmd,UUIDLine:string;
begin
Output:=TStringList.Create;
Cmd:='wmic path win32_computersystemproduct get uuid';
Process:=TProcess.Create(nil);
try
(*
  Process.Executable:=SetDirSeparators('wmic');
  Process.Parameters.Add('path');
  Process.Parameters.Add('win32_computersystemproduct');
  Process.Parameters.Add('get');
  Process.Parameters.Add('uuid');
*)
  Process.CommandLine := Cmd;
  Process.Options := Process.Options + [poWaitOnExit, poUsePipes];
  Process.Execute;
  Output.LoadFromStream(Process.Output);
  Result:=Output.Strings[0];
  UUIDLine:=Output.Strings[1];
  ShowMessage(UUIDLine);
finally
  Process.Free;
  Output.Free;
  end;
end;

versuche ich das mit Lazarus.
Bekomme aber nur die 1. Zeile zurück (UUID).
Ich brauche aber die 2. Zeile in der die eigentliche UUID steht.

[fliegermichl]

In der Ausgabe befinden sich noch einige leere Zeilen. Wenn man die zuvor entfernt, klappt es.

[Singlepin]

Danke, warum prüfe ich auch nicht auf Count.