Рассылка закрыта
При закрытии подписчики были переданы в рассылку "Программирование в Delphi" на которую и рекомендуем вам подписаться.
Вы можете найти рассылки сходной тематики в Каталоге рассылок.
СообЧА. Программирование на Delphi
|
как написать звонилку до провайдера? ответ: 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;
P.S. Ras.pas бpать с www.torry.ru
TMenuItem - создание и добавление событий во время работы приложения, как?
...
ppmProgram: TMenuItem;
Private
procedure PopulateMenu(Sender: TObject);
procedure NewShortcutClick(Sender: TObject);
...
procedure TForm1.PopulateMenu(Sender: TObject);
var
ppmAddNewShortcut : TMenuItem;
begin
ppmAddNewShortcut :=
TMenuItem.Create(Self);
ppmAddNewShortcut.Caption := '&Тест';
ppmAddNewShortcut.OnClick := NewShortcutClick;
ppmProgram.Add(ppmAddNewShortcut);
end;
procedure TForm1.NewShortcutClick(Sender: TObject);
begin
{ Здесь введите код для "Тест"
}
end;
глючит Uses в DLL.... ...синтаксис для DLL должен быть немного другим. Вот как нужно правильно делать: Вам необходимо, по крайней мере, два файла -- библиотечный файл и файл с исходным кодом: Библиотечный файл: mylib.dpr library MyLib;
uses
MyCode in 'MYCODE.PAS';
exports
MyFunc index 1;
begin
end
Файл с исходным кодом: mycode.pas
unit MyCode;
interface
function MyFunc( MyParam: string ): string; export;
implementation
function MyFunc( MyParam: string ): string;
begin
Result := 'Это просто пример!';
end;
end.
Нужна прога, которая бы следила за urlами в MSIE... Пример показывает, как найти окно Internet Explorer, и захватить из него текущий URL, находящийся в поле адреса IE. В Исходнике используются простые функции win32 api на delphi. {-------------------------------------------------------}Function GetText(WindowHandle: hwnd):string; var txtLength : integer; buffer: string; begin
TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0,
0);
txtlength := txtlength + 1;
setlength (buffer, txtlength);
sendmessage (WindowHandle,wm_gettext, txtlength, longint(@buffer[1]));
result := buffer;
end;function GetURL:string; var ie,toolbar,combo, comboboxex,edit, worker,toolbarwindow:hwnd; begin
ie := FindWindow(pchar('IEFrame'),nil);
worker := FindWindowEx(ie,0,'WorkerA',nil);
toolbar := FindWindowEx(worker,0,'rebarwindow32',nil);
comboboxex := FindWindowEx(toolbar, 0, 'comboboxex32',
nil);
combo := FindWindowEx(comboboxex,0,'ComboBox',nil);
edit := FindWindowEx(combo,0,'Edit',nil);
toolbarwindow := FindWindowEx(comboboxex, 0, 'toolbarwindow32',
nil);
result := GetText(edit);
{-------------------------------------------------------}procedure TForm1.Button1Click(Sender: TObject); begin showmessage(GetURL); end;
Автор
:Pixel(
pixel@novgorod.net http://pixelsoft.narod.ru
)
|
| Zaluskiy Anton(COOLer) - ведущий проекта "Мир Delphi" |
|
| http://subscribe.ru/
E-mail: ask@subscribe.ru | Отписаться | Рейтингуется SpyLog |
| В избранное | ||
