Текущий архив: 2007.02.25;
Скачать: CL | DM;
Вниз
Как сменить метку диска Найти похожие ветки
← →
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 :)
Страницы: 1 вся ветка
Текущий архив: 2007.02.25;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.029 c
