Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   dank GetVolumeInformation \\server\test anzeigen (https://www.delphipraxis.net/86762-dank-getvolumeinformation-%5C%5Cserver%5Ctest-anzeigen.html)

battlemonster 19. Feb 2007 13:21


dank GetVolumeInformation \\server\test anzeigen
 
ich möchte, dass bei den netzwerklaufwerken nicht zb z:\download steht sondern \\server\test

ich weiß dass ich bei einem code-beispiel nichts lerne, würd mich aber trotzdem freun, da ich auf der seite http://msdn2.microsoft.com/en-us/library/aa364993.aspx überhaupt nichts verstehe. und zum grundlagen lernen hab ich delphikurs in der schule

danke im vorraus

ste_ett 19. Feb 2007 14:13

Re: dank GetVolumeInformation \\server\test anzeigen
 
Häng "\" hinten an den Pfad an. :)

battlemonster 19. Feb 2007 14:18

Re: dank GetVolumeInformation \\server\test anzeigen
 
die zeile sieht bei mir so aus:
Delphi-Quellcode:
GetVolumeInformation(PChar(Chr(i + 65) + ':\'), VolumeName, SizeOf(VolumeName), nil, Dummy2, Dummy3, FileSystem, SizeOf(FileSystem));
wo da ein "\"?

ste_ett 19. Feb 2007 15:00

Re: dank GetVolumeInformation \\server\test anzeigen
 
Einerseits sagst du, dass du ein Netzlaufwerk überprüfen möchtest, andererseits durchläufst du alle möglichen Laufwerksbuchstaben. :)

Was genau brauchst du jetzt?

Wo der Backslash hin muss, steht im Post. :)

Zitat:

Häng "\" hinten an den Pfad an. :)
Pfad = Laufwerkspfad

battlemonster 19. Feb 2007 15:05

Re: dank GetVolumeInformation \\server\test anzeigen
 
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
  Dummy2          : DWORD;
  Dummy3         : DWORD;
  FileSystem    : array[0..MAX_PATH] of char;
  VolumeName    : array[0..MAX_PATH] of char;
begin
  listbox1.Items.Clear;
  for I := 0 to 25 do
  begin
   if DriveExists(i, DRIVE_REMOTE) then
   begin
     GetVolumeInformation(PChar(Chr(i + 65) + ':\'), VolumeName, SizeOf(VolumeName), nil, Dummy2, Dummy3, FileSystem, SizeOf(FileSystem));
     ListBox1.Items.Add(Chr(i + 65) + ':\' + VolumeName);
   end;
  end;
end;
ich möchte in ner listbox nur netzwerklaufwerke angezeigt bekommen, mit [vieleicht auch laufwererksbuchstabe z:\] \\server\test

himitsu 19. Feb 2007 15:09

Re: dank GetVolumeInformation \\server\test anzeigen
 
Da es sich hierbeu um eine der netten WinAPIs handelt, hätte dir ein Blick ins MSDN/PSDK helfen können.

MSDN-Library durchsuchenGetVolumeInformation

Zitat:

Zitat von MSDN
A trailing backslash is required.

Zitat:

Zitat von battlemonster
wo da ein "\"?

na genau da, wo es hinmuß :zwinker:
Code:
GetVolumeInformation(PChar(Chr(i + 65) + ':[color=#ff0000][b]\[/b][/color]'), VolumeName, SizeOf(VolumeName), nil, Dummy2, Dummy3, FileSystem, SizeOf(FileSystem));
In deiner Zeile ist er also schon drin, aber was hat das mit dem Netzleufwerk zu tun?
z:\download\ <> \\server\test\

[add]
'ne RedBox wäre schon nett gewesen o.O

battlemonster 19. Feb 2007 15:46

Re: dank GetVolumeInformation \\server\test anzeigen
 
ich würd das gern so haben, dass ich bei anzeigen eines netzwerklaufwerkes, nicht den namen der festmplatte bekomme, sondern der freigabe und auf welchen rechner die freigabe gemacht wurde.


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:41 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz