Infos von z.b. \\server\test\ lesen

[samso]

Damit sollte es gehen (Drive muss mit einem Backslash (->SysUtils.IncludeTrailingPathDelimiter) enden. Also z.B. "\\server\volume1\").

Delphi-Quellcode:

function VolumeID(const Drive: String): string;
var
  OldErrorMode: Integer;
  NotUsed, VolFlags: Cardinal;
  Buf: array [0..MAX_PATH] of Char;
begin
  OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    Buf[0] := #$00;
    if GetVolumeInformation(PChar(Drive), Buf, MAX_PATH+1, nil, NotUsed, VolFlags, nil, 0)
    then
      SetString(Result, Buf, StrLen(Buf))
    else
      Result := '';
  finally
    SetErrorMode(OldErrorMode);
  end;
end;

[DelTurbo]

Super, klappt.

Und ja es stimmt. Es muss mit \ enden. Warum es bei oben (in dem einzeiler) auch ohne geht weiss ich nicht. Also es geht beides. Mit und ohne \ am ende.

Gruss und vielen dank

[DeddyH]

Kleiner Vorschlag:
if GetVolumeInformation(PChar(IncludeTrailinPathDelimiter(Drive)), Buf, MAX_PATH+1, nil, NotUsed, VolFlags, nil, 0) Dann ist es egal, ob der Backslash übergeben wurde oder nicht.

[DelTurbo]

Gute idee, danke. Werde ich reinmachen. Wie gesagt, es war gestern abend und ich hatte es einfach vergessen, trotzdem klappt es. Hatte mich nur gewundert.

Ich versuche im moment die Seriennummer auszulesen. Also von \\server\volume1\. Das scheint auch zu gehen. Nur muss ich sehen ob die dann auf allen rechnern gleich ist, was ich hoffe.

EDIT: Zur info.. Ja, ist gleich. Ich habe die nun von 4 Rechnern gelesen. Auch gemountet und nicht gemountet. Ich bin bei Windows immer auf alles gefasst....