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

[DelTurbo]

Vielen Dank!
Von deiner antwort bin ich hier gelandet http://www.swissdelphicenter.ch/de/showcode.php?id=654

Dann habe ich einen 3zeiler gemacht. Der sogar geht

Delphi-Quellcode:

function GetDiskSize(var free_size, total_size: Int64): Boolean;
begin
    GetDiskFreeSpaceEx(PChar('\\server\volume1'), Free_size, Total_size, nil);
end;

Und es klappt. Nun werde ich noch VolumeInfo versuchen. Vielen vielen dank für den stups in die richtige richtung. Fehlerabfragen kommen natürlich noch rein. Was InUse ist kann ich ja mit den beiden werten berechnen. Das ist das kleinste prob.

Gruss und noch einen schönen "Restabend". Leider bin ich hundemüde, sonst wrürde ich das heute noch machen, aber das pack ich leider nichtmehr.

Nochmals Danke!

[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....