Jak zrobić żeby po zaznaczeniu linku (przykład takie rodzaje: http://4programmers.net lub www.4programmers.net lub http://www.4programmers.net) w Internet Eksporterze lub dowolnej przeglądarce i wciśnięciu Ctrl+C pojawił się komunikat: „kopiujesz link o adresie: http://4programmers.net lub www.4programmers.net lub http://www.4programmers.net ” (podobny efekt jest w FlashGetcie)
Na torry.net w dziale TIPS / INTERNET widzialem wskazowke jak przechwytywac linki...
Lofix a masz dokladny link ?? A może ma już ktoś gotowy przykład ??
A zatanczysz Ci jeszcze?
<font color="green">"A zatanczysz Ci jeszcze?"</span>
Nie wiem co to zdanie znaczy.
O to cały gotowy kod:
uses
ddeman;
function GetURL(Service: string): string;
var
ClDDE: TDDEClientConv;
temp: PChar;
begin
Result := <font color="blue">''</span>;
<font color="blue">//create a new DDE Client object </span>
ClDDE := TDDEClientConv.Create(nil);
with ClDDE do
begin
SetLink(Service, <font color="blue">'WWW_GetWindowInfo'</span>);
temp := RequestData(<font color="blue">'0xFFFFFFFF'</span>);
Result := StrPas(temp);
StrDispose(temp);
CloseLink;
end;
ClDDE.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
<font color="blue"> // the result should be something like:
- "http:*www.swissdelphicenter.ch","SwissDelphiCenter.ch" </span>
ShowMessage(GetURL('IExplore'));
<font color="blue">ShowMessage(GetURL('Netscape')); }</span>
end;
<font color="blue">{**************************************} </span>
<font color="blue">// To have the locationurls from all running instances of Internet Explorer -
// including open folders and Windows Explorer - shown in a listbox.
- by http:*www.euromind.com/iedelphi/ </span>
uses
shdocvw_tlb;
procedure TForm1.Button2Click(Sender: TObject);
var
x: Integer;
Sw: IShellWindows;
begin
sw := CoShellWindows.Create;
for x := <font color="blue">0</span> to SW.Count <font color="blue">- 1</span> do
Listbox1.Items.Add((Sw.Item(x) as IWebbrowser2).LocationUrl);
end;