Подключение сетевого диска на 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;

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



style="display:inline-block;width:468px;height:60px"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="7620109552">

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!

Подтвердите, что Вы не бот — выберите человечка с поднятой рукой: