Knocking to .... [D6, WinXP]
Colonel © (2005-01-08 23:25:00)
Доброй ночи всем, кто не спит. Возникла следующая проблема : в
локалке, когда ставят ограничения на расшарки иногда просто бесит
окошко, которое появляется (Дополнительные подключения не возможны
и т.д). Я решил написать "прогу - стучалку", которая по истечении
некоторого времени стучится на указанный ресурс и проверяет,
доступен он или нет. Так вот проблема в том, что я использовал
такой код :
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:00) [1]
Никто даже совета дать не может и помочь ?
Наверх 
ЧАТ |
Орешник |
|
