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

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

 

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

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;

About admin

Speak Your Mind

Tell us what you're thinking...
and oh, if you want a pic to show with your comment, go get a gravatar!

Подтвердите, что Вы не бот — выберите самый большой кружок: