Текущий архив: 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.44 MB
Время: 0.047 c