Реализация VBS в delphi
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
Реализация VBS в delphi - 2009-12-03 13:26:22.930000
|
|
|
Delphivbs
Сообщений: 7
Оценки: 0
Присоединился: 2009-12-03 13:23:13.586666
|
Я хочу расшарить диск по средствам vbs но в delphi.Подскажите как это сделать. Ну ни знаю там перевести Set S = CreateObject("wscript.shell") Set FSO=CreateObject("scripting.filesystemobject") s.run"net share c=c:\",0 на язык delphi или просто это как то реализовать именно на delphi.Ввсе перевернул ну ни кто не знает
|
|
|
RE: Реализация VBS в delphi - 2009-12-03 13:42:59.610000
|
|
|
eshkin kot
Сообщений: 68
Оценки: 0
Присоединился: 2009-12-03 00:14:58.240000
|
вставка vbs в делфи не возможна. Переписывай на делфи.
|
|
|
RE: Реализация VBS в delphi - 2009-12-03 13:50:12.850000
|
|
|
Delphivbs
Сообщений: 7
Оценки: 0
Присоединился: 2009-12-03 13:23:13.586666
|
Подскажите пожалуйста код а то я новичок
|
|
|
RE: Реализация VBS в delphi - 2009-12-03 13:54:34.493333
|
|
|
eshkin kot
Сообщений: 68
Оценки: 0
Присоединился: 2009-12-03 00:14:58.240000
|
чё эта net share c=c:\ строчка делает объясни мне, а то я даун полный в этих cmd шных приблудах
|
|
|
RE: Реализация VBS в delphi - 2009-12-03 13:55:43.970000
|
|
|
Delphivbs
Сообщений: 7
Оценки: 0
Присоединился: 2009-12-03 13:23:13.586666
|
расшаривает диск С
|
|
|
RE: Реализация VBS в delphi - 2009-12-03 14:00:16.320000
|
|
|
eshkin kot
Сообщений: 68
Оценки: 0
Присоединился: 2009-12-03 00:14:58.240000
|
shellexecute(0,nil,'net','share C="C:\Папка"',nil,SW_HIDE);
|
|
|
RE: Реализация VBS в delphi - 2009-12-03 14:10:38.660000
|
|
|
Delphivbs
Сообщений: 7
Оценки: 0
Присоединился: 2009-12-03 13:23:13.586666
|
А что на твой скрипт ругается вирусник?
|
|
|
RE: Реализация VBS в delphi - 2009-12-03 14:13:49.503333
|
|
|
eshkin kot
Сообщений: 68
Оценки: 0
Присоединился: 2009-12-03 00:14:58.240000
|
сегодня в больнице день открытых дверей что-ль?!…
|
|
|
RE: Реализация VBS в delphi - 2009-12-03 14:16:50.643333
|
|
|
Delphivbs
Сообщений: 7
Оценки: 0
Присоединился: 2009-12-03 13:23:13.586666
|
Не понял? Пишу так shellexecute(0,nil,'net','share C="C:\Documents and Settings"',nil,SW_HIDE); - ругается А так shellexecute(0,nil,'net','share C="C:\"',nil,SW_HIDE); - диск C: не расшаривается Ну напиши нормальный код
|
|
|
RE: Реализация VBS в delphi - 2009-12-03 14:31:23.066666
|
|
|
Delphivbs
Сообщений: 7
Оценки: 0
Присоединился: 2009-12-03 13:23:13.586666
|
короче разобрался нужно так shellexecute(0,nil,'net','share c=c:\',nil,SW_HIDE); А как сделать что бы он вечно был открыт?Что бы "открыть общий доступ к этой папке" был неактивным так сказать enabled
|
|
|
RE: Реализация VBS в delphi - 2009-12-05 15:09:11.853333
|
|
|
Delphivbs
Сообщений: 7
Оценки: 0
Присоединился: 2009-12-03 13:23:13.586666
|
Че я зырю никто не знает.Все так сказать с дефектом
|
|
|
|
|