A função recupera a URL ativa do Browser Internet Explorer.
É necessário estar declarado DdeMan e SysUtils na seção uses,
em versões unicode declare Vcl.DdeMan e System.SysUtils.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | function GetURLIExplorer: String; var ClDDE: TDDEClientConv; {$IFDEF UNICODE} temp: PAnsiChar; {$ELSE} temp: PChar; {$ENDIF} begin Result := ''; // Criar um novo cliente DDE ClDDE := TDDEClientConv.Create(nil); with ClDDE do begin SetLink('IExplore', 'WWW_GetWindowInfo'); temp := RequestData('0xFFFFFFFF'); Result := StrPas(temp); StrDispose(temp); CloseLink; end; ClDDE.Free; end; |
Exemplo de uso:
1 2 3 4 | procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(GetURLIExplorer()); end; |
