Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Namensänderung mit SetVolumeLabel (https://www.delphipraxis.net/101255-namensaenderung-mit-setvolumelabel.html)

little_budda 10. Okt 2007 14:12


Namensänderung mit SetVolumeLabel
 
Hallo,

ich möchte gerne den Namen (Label) eines USB Sticks ändern.
Ich versuche es mit folgendem Code:

Delphi-Quellcode:
  // Name des Mediums setzen
  sDriveName := 'I:';
  sDriveLabel := 'Daten 37';
  try
    if (SetVolumeLabel(pchar(sDriveName), pchar(sDriveLabel )) = false)
      then bError := true;
  except
    bError := true;
  end;
Aber der Rückgabewert von SetVolumeLabel ist immer false.

Was bitte mache ich denn falsch?

Gruß Holger.

:gruebel:

Luckie 10. Okt 2007 14:26

Re: Namensänderung mit SetVolumeLabel
 
Zitat:

Zitat von little_budda
Was bitte mache ich denn falsch?

Weiß ich auch nicht, aber vielleicht kann dir Windows selber mehr sagen:
Zitat:

If the function fails, the return value is zero. To get extended error information, call GetLastError.

little_budda 10. Okt 2007 15:23

Re: Namensänderung mit SetVolumeLabel
 
Danke für den Tipp.

GetLastError liefert mir 154.

Hab schon mal gegoogelt, aber da kam nicht verwertbares bei raus.
Gibt es die ErrorCodes vielleicht auch in einer KlartextVariante?

Hat jemand eine Idee?

Neutral General 10. Okt 2007 15:28

Re: Namensänderung mit SetVolumeLabel
 
Hi,

:arrow:

Delphi-Quellcode:
ShowMessage(SysErrorMessage(GetLastError));
;)

Gruß
Neutral General

Luckie 10. Okt 2007 15:29

Re: Namensänderung mit SetVolumeLabel
 
Entweder im MSDN online oder im Windows SDK oder so:
Code:
C:\Dokumente und Einstellungen\mp>net helpmsg 154

Die eingegebene Datenträgerbezeichnung übersteigt die Begrenzung des Zieldateisystems.

little_budda 10. Okt 2007 15:35

Re: Namensänderung mit SetVolumeLabel
 
Danke.


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:38 Uhr.

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