[OSKR]

recuerdo q tenia esto:
publicado por Jorodgar:

unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DDEman, StdCtrls;
type TForm1 = class(TForm)
					Button1: TButton;
					Edit1: TEdit;
					Edit2: TEdit;
					procedure Button1Click(Sender: TObject);
					private { Private declarations }
					public { Public declarations } 
					procedure GetCurrentURL (var URL, Title : string);
					end;
var Form1: TForm1;
	 implementation {$R *.dfm}
procedure TForm1.GetCurrentURL (var URL, Title : string);
 var DDEClient : TDDEClientConv;
	  s : string;
 begin s := '';
 try
  DDEClient := TDDEClientConv.Create(self);
   with DDEClient do
   begin 
	 if SetLink('IExplore','WWW_GetWindowInfo') then
		s := RequestData('0xFFFFFFFF,sURL,sTitle')
	 else
	   if SetLink('Netscape','WWW_GetWindowInfo') then 
		  s := RequestData('0xFFFFFFFF,sURL,sTitle') 
	   else 
		 if SetLink('Mosaic','WWW_GetWindowInfo') then
			s := RequestData('0xFFFFFFFF,sURL,sTitle')
		 else
			if SetLink('Netscp6','WWW_GetWindowInfo') then 
			  s := RequestData('0xFFFFFFFF,sURL,sTitle') 
		 else 
			if SetLink('Mozilla','WWW_GetWindowInfo') then
			   s := RequestData('0xFFFFFFFF,sURL,sTitle')
			else
			  if SetLink('Firefox','WWW_GetWindowInfo') then
				s := RequestData('0xFFFFFFFF,sURL,sTitle');
			end;
			if s <> '' then
			  begin
				delete(s,1,1);
				URL := copy(s,1,pos('","',s)-1);
				delete(s,1,pos('","',s)+2);
				Title := copy(s,1,pos('"',s) - 1);
		   end;
		   exit;
		   except MessageDlg('URL attempt failed!',mtError,[mbOK],0);
		 end;
 end;
 procedure TForm1.Button1Click(Sender: TObject);
 var URL : string; Title : string;
 begin
   GetCurrentURL (URL, Title);
   Edit1.Text := URL; 
   Edit2.Text := Title;
 end;
 end.

y digo recuerdo porq solo guardo las paginas, no los links , aja còdigo mas o menos arreglado, pasa q fue un copie-y-pegue de una pagina guardada y no tenia idea de q esto iba a pasar, otra cosa, no pude responder ni idea de porq no se me permitia, la guia o guias de estilo nunca las he leido (por falta de tiempo) pero actuo por intuición y experiencia en uno q otro foro........disculpen el anterior desorden