Knocking to ....

← →
Colonel (2005-01-08 23:25) [0]

Доброй ночи всем, кто не спит. Возникла следующая проблема : в локалке, когда ставят ограничения на расшарки иногда просто бесит окошко, которое появляется (Дополнительные подключения не возможны и т.д). Я решил написать "прогу - стучалку", которая по истечении некоторого времени стучится на указанный ресурс и проверяет, доступен он или нет. Так вот проблема в том, что я использовал такой код :

procedure TF_Main.ST_GoClick(Sender: TObject); var t:string; i:integer; result:boolean; TempComp: String; NRC: NETRESOURCE; Pw,Us: PChar; begin if e_url.Text="" then exit; NRC.dwType:=RESOURCETYPE_DISK; NRC.lpLocalName:=""; NRC.lpProvider:=nil; //Us:=""; //Pw:=""; TempComp:=e_url.Text; NRC.lpRemoteName:=PChar(TempComp); repeat //application.MessageBox("Есть контакт !!!","АхТуНг !!!",mb_ok); shellexecute(handle,"open",NRC.lpRemoteName,nil,nil,sw_shownormal); e_url.Clear; WNetCancelConnection(NRC.lpRemoteName,False); until WNetAddConnection3(Handle,NRC,nil,nil,0)=no_error; end; end.

И это не совсем работает. Окошко это долбанное все равно выскакивает, но прога продолжает проверять ресурс. И каждый раз приходится жать на "ок" в окошке.

Есть ли другое решение этой идеи ? Хотел попробовать отлавливать окно и програмно нажимать на "ok", но это геммор. Пока других идей нет. Возможно просто отлавливать окно и закрывать его, но хочется чего-нить попроще. Помогите мне, спать охота.

← →
Colonel (2005-01-09 07:31) [1]

Никто даже совета дать не может и помочь ?

Knocking to .... Найти похожие ветки