Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.13;
Скачать: CL | DM;

Вниз

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]

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



Страницы: 1 вся ветка

Текущий архив: 2005.03.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.037 c
1-1109690443
Nicotin
2005-03-01 18:20
2005.03.13
Как перехватить нажатие кнопки?


14-1109014642
leonidus
2005-02-21 22:37
2005.03.13
Знатокам WinHelp`а - есть небольшая подработка


3-1108030742
BPK
2005-02-10 13:19
2005.03.13
TDataSet.Locate не работает по сортированному DataSet


1-1109413410
Flexer
2005-02-26 13:23
2005.03.13
Обработка сообщений для ректанглов на канве


14-1109085164
r.o.o.t
2005-02-22 18:12
2005.03.13
ВАША ОЦЕНКА ЦЕНЫ ПРОГРАМНОГО ПРОДУКТА!!!!