скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

DDE для захвата текущего URL из окна Internet Explorer или Netscape Navigator




Вопpос: "Можно ли сообщение "Пpогpамма выполнила недопустимую опеpацию....обpатитесь к pазpаботчику" считать официальным вызовом в США?


uses
  windows, ddeman, ...


function Get_URL(Servicio: string): string;
var
  Cliente_DDE: TDDEClientConv;
  temp: PChar;      //<<-------------------------This is new
begin
  Result := '';
  Cliente_DDE:= TDDEClientConv.Create( nil );
  with Cliente_DDE do
  begin
    SetLink( Servicio,'WWW_GetWindowInfo');
    temp := RequestData('0xFFFFFFFF');
    Result := StrPas(temp);
    StrDispose(temp);  // <<-- Предотвращаем утечку памяти
    CloseLink;
  end;
  Cliente_DDE.Free;
end;

procedure TForm1.Button1Click(Sender);
begin
   showmessage(Get_URL('Netscape'));
// или
   showmessage(Get_URL('IExplore'));
end;






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook