Как сменить метку диска

← →
seesm (2007-02-06 14:26) [0]

Знаю что есть это
BOOL SetVolumeLabel(
LPCTSTR lpRootPathName, // адрес имени корневой директории тома
LPCTSTR lpVolumeName // метка тома
);

как применить?

как S сменить на Q?
диск типа "DRIVE_REMOVABLE"

← →
Kolan © (2007-02-06 14:36) [1]

Не проверял но помоему все просто:
SetVolumeLabel("S:\", "Q")

← →
DiamondShark © (2007-02-06 14:39) [2]

Что такое S и что такое Q?

← →
seesm (2007-02-06 14:42) [3]

Да SetVolumeLabel("S:\", "Q") это работает, блин! Я не заметил.
Но это метка меняется. Сам лабел.
А мне, старому, надо букву менять. Понимаете, перемонтировать локальный диск на другую букву. Как, подскажие пожалста....
Kolan? DiamondShark?

← →
гостъ (2007-02-06 17:14) [4]

Нуу... как-то так.

function SetMountPoint ( const strOldPoint, strNewPoint : String ) : Boolean; var dwRet : Cardinal; rgszDosDev : array [0..MAX_PATH - 1] of Char; begin dwRet := QueryDosDevice ( PChar ( strOldPoint ), rgszDosDev, MAX_PATH ); if ( dwRet = 0 ) then RaiseLastOSError; dwRet := Cardinal ( DefineDosDevice ( DDD_RAW_TARGET_PATH, PChar ( strNewPoint ), rgszDosDev ) ); if ( dwRet = 0 ) then RaiseLastOSError; Result := dwRet <> 0; end; procedure TForm1.Button1Click(Sender: TObject); begin SetMountPoint ( "Z:", "J:" ); end;

Не совсем корректно, конечно, упрощенный вариант, но работать будет.
RTFM MSDN :)

Как сменить метку диска Найти похожие ветки