Подключение сетевого диска на Delphi
Потребовалось как то простая программка, которая проверяет наличие сетевых дисков, и если они не подключились при включение компьютера, то она все подключит сама.
Весь код находиться в таймере, который периодически срабатывает.
procedure TForm1.Timer1Timer (Sender: TObject);
begin
//если диска 'M:\' нету то запускаем ДОСовскую команду 'net use 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;