![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Запуск из программы [D6, Win95/98, WinME, Win2k, WinXP]
BLooDMaN © (2003-02-13 12:10:00)Как запустить из своей программы определенный(тот который нужен) диалог Соединения по модему ("Подключение к..." в Win2k)
BLooDMaN (2003-02-13 18:20:00) [1]спасибо попробую
Дима2003 (2003-02-13 14:14:00) [2]uses ras
Function DialProvider(connection:string):boolean;
// connection - имя учетной записи
var pars:TRasDialParams;
hRas:ThrasConn;
r:integer;
begin
hRas:=0;
strpcopy(pars.szEntryName,connection); // имя учетной записи
pars.szPhoneNumber:=""; // номеp телефона - по умолчанию
pars.szcallbacknumber:=""; // callback нам не нужен
pars.szUserName:=""; // логин - по умолчанию
pars.szPassWord:=""; // паpоль - по умолчанию
pars.szDomain:=""; // аналогично с домейном
pars.dwSize:=Sizeof(TRasDialParams); // вычисляем pазмеp записи
r:=rasdial(nil,nil,pars,0,nil,hRas); // звоним
if r<>0 then begin // если что-то неполучилось, то
rasHangUp(hRas); // сбpасываем соединение
result:=false; // ф-ция тепеpь веpнет false
end
else result:=true; // а если все ок - то true.
end;
Дима2003 (2003-02-13 14:09:00) [3]я давно делал так, что у человека можно вообще ничего не спрашивать(если пароль сохранён). Кроме которое соединение использовать.
BLooDMaN (2003-02-13 13:59:00) [4]Ну так как вызвать этот диалог?? Плизз помогите.
BLooDMaN (2003-02-13 13:33:00) [5]Так мне и надо вызвать системный диалог.Т.е. на компьютере созданы например 2 соединения с названиями mtu и comstar вот мне и нужно вызвать диалог соединения который укажет пользователь.
Anatoly Podgoretsky (2003-02-13 12:57:00) [6]Большинство пользуется для это возможностями системв - или автоматически при необходимости или вручную до передачи, тех кого это не устраивает копают в сторону RAS
BLooDMaN (2003-02-13 12:46:00) [7]Неужели это такой сложный вопрос , что никто на него не может ответить?? :(