Подключение сетевого диска на Delphi



style="display:block"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="5792664354"
data-ad-format="link">

Потребовалось как то простая программка, которая проверяет наличие сетевых дисков, и если они не подключились при включение компьютера, то она все подключит сама.

 

Весь код находиться в таймере, который периодически срабатывает.

procedure TForm1.Timer1Timer (Sender: TObject);

begin

//если диска 'M:\' нету то запускаем ДОСовскую команду 'net use M: \\mmfs\disk_m' которая и подключит нужный диск

//SW_HIDE — означает то бы при подключение сетевого диска не выскакивало не каких сообщений

if not DirectoryExists ('M:\') then

winexec (PChar ('net use M: \\mmfs\disk_m') , SW_HIDE);

if not DirectoryExists ('Y:\') then

winexec (PChar ('net use Y: \\10.22.0.120\prep') , SW_HIDE);

if not DirectoryExists ('Z:\') then

winexec (PChar ('net use Z: \\10.22.0.120\ruk') , SW_HIDE);

end;

Популярность: 0 [?]

Рубрика: Delphi · Метки:

Выразите свои мысли

Скажите нам, что вы думаете...
и если вы хотите сопроводить комментарий своей аватаркой, воспользуйтесь сервисом gravatar!