Нужжна помощь Гуру (диск А:\ заменить на F:\)

[SergT]

Доброе время суток всем жителям форума!
Вот такая проблема:
Некий программист, в некоем городе на Дельфи написал прогу, которая
насильно сохраняет данные на диск A:\
Вопрос:
Что делать, если хочу не на флоппи а на F:\ ( на флешку)?
Можно взломать exe, но время...
Как временно заменить А на F? Или есть иные пути?

С благодарностью приму любую помощь в виде добрых пожеланий, мудрых или оригинальных решений, подсказок, ссылок..

[keks-n]

Отключить флоповод (не физически, а в диспетчере устройств), а потом в командной строке
SUBST A: F:\

[Денис]

Использовать один из множества программных эмуляторов, кои в великом множестве расположены на сайте Google.ru

[SergT]

А вот одной кнопкой? Я то смогу обмануть, а как далекому пользователю обьяснить, что делать?
Думал , может програмульку написать, чтобы она подменяла ...
например:
как keks-n предлагает
Отключить флоповод (не физически, а в диспетчере устройств), а потом в командной строке
SUBST A: F:\

[Lumen]

Можно наверное сценарий на vbscript написать.

[Хакер]

Заменить A на F жестко в бинарнике - помоему быстрее, чем искать альтернативные пути.

[jangle]

Доброе время суток всем жителям форума!
Вот такая проблема:
Некий программист, в некоем городе на Дельфи написал прогу, которая
насильно сохраняет данные на диск A:\
Вопрос:
Что делать, если хочу не на флоппи а на F:\ ( на флешку)?
Можно взломать exe, но время...
Как временно заменить А на F? Или есть иные пути?

С благодарностью приму любую помощь в виде добрых пожеланий, мудрых или оригинальных решений, подсказок, ссылок..

DefineDosDevice

И кстати, зачем такой вопрос постить в топике для профессионалов?

[jangle]

Заменить A на F жестко в бинарнике - помоему быстрее, чем искать альтернативные пути.

Разве одну API функцию вызвать, это будет не быстрее?

Код: Выделить всё

Private Declare Function DefineDosDevice Lib "KERNEL32.DLL" Alias "DefineDosDeviceA" (ByVal dwFlags As Long, ByVal lpDeviceName As String, ByVal lpTargetPath As String) As Long
Const DDD_REMOVE_DEFINITION = &H2


Private Sub Command1_Click()
DefineDosDevice 0, "A:", "D:\TEMP"
End Sub

Теперь вместо диска A, ввод-вывод будет в каталог D:\TEMP

[Денис]

Теперь вместо диска A, ввод-вывод будет в каталог D:\TEMP

А subst разве не то же самое делает? Поясните разницу? (или DefineDosDevice создает образ только для эмуляции DOS?)

[Antonariy]

Subst делает ровно наоборот - монтирует папку как диск.

[alibek]

В объявлении к данному подфоруму сказано:

Этот раздел НЕ ПРЕДНАЗНАЧЕН для того, чтобы вы адресовали свою проблему профессионалам.
Этот раздел предназначен ДЛЯ ПРОФЕССИОНАЛОВ, которые столкнулись с проблемой и не могут решить ее самостоятельно.

SergT, tag_warning (1)

[jangle]

Теперь вместо диска A, ввод-вывод будет в каталог D:\TEMP

А subst разве не то же самое делает? Поясните разницу? (или DefineDosDevice создает образ только для эмуляции DOS?)

Тоже самое делает. SUBST.EXE это только надстройка над вызовом DefineDosDeviceW

[SergT]

Код: Выделить всё

Private Declare Function DefineDosDevice Lib "KERNEL32.DLL" Alias "DefineDosDeviceA" (ByVal dwFlags As Long, ByVal lpDeviceName As String, ByVal lpTargetPath As String) As Long
Const DDD_REMOVE_DEFINITION = &H2


Private Sub Command1_Click()
DefineDosDevice 0, "A:", "D:\TEMP"
End Sub

Теперь вместо диска A, ввод-вывод будет в каталог D:\TEMP

Спасибо! Пожалуй, такой вариант подходит!

В объявлении к данному подфоруму сказано:

Этот раздел НЕ ПРЕДНАЗНАЧЕН для того, чтобы вы адресовали свою проблему профессионалам.
Этот раздел предназначен ДЛЯ ПРОФЕССИОНАЛОВ, которые столкнулись с проблемой и не могут решить ее самостоятельно.

SergT, tag_warning (1)

Согласен с замечанием. Видимо я еще не профессионал