Gönderen Konu: TWebBrowser nesnesinde görüntülenen bir web sayfasını favorilere ekleme (Okunma sayısı 2084 defa)

ALUCARD · « : 31 Aralık 2005 11:22:54 »

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls,registry, SHDocVw, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
WebBrowser1: TWebBrowser;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
const
NotAllowed: set of Char = ['"'] + ['/'] + ['\'] + ['?'] + [':'] + ['*'] +
['<'] + ['>'] + ['|'];

implementation

{$R *.dfm}
function Load(Path, Key: string): string;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey(Path, False);
try
Result := Reg.ReadString(Key);
except
Result := '';
end;
Reg.CloseKey;
finally
Reg.Free;
end;
end;

function WinDir: string;
var
WinDir: PChar;
begin
WinDir := StrAlloc(MAX_PATH);
GetWindowsDirectory(WinDir, MAX_PATH);
Result := string(WinDir);
if Result[Length(Result)] <> '\' then
Result := Result + '\';
StrDispose(WinDir);
end;

function GetSysDir: string;
var
dir: array [0..MAX_PATH] of Char;
begin
GetSystemDirectory(dir, MAX_PATH);
Result := StrPas(dir);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate(edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
url: TStringList;
fav: string;
title, b: string;
i: Integer;
c: Char;
begin
fav := Load('Software\Microsoft\Windows\CurrentVersion\Ex plorer\Shell Folders','Favorites');
url := TStringList.Create;
try
url.Add('[InternetShortcut]');
url.Add('URL=' + webbrowser1.LocationURL);
url.Add('WorkingDirectory=' + WinDir());
url.Add('IconIndex=0');
url.Add('ShowCommand=7');
url.Add('IconFile=' + GetSysDir() + '\url.dll');
title := Webbrowser1.LocationName;
b := '';
for i := 1 to Length(title) do
begin
c := title[i];
if not (c in NotAllowed) then
begin
b := b + Webbrowser1.LocationName[i];
end;
end;
url.SaveToFile(fav + '\' + b + '.url');
finally
url.Free;
end;
end;
end.

theblow · « **Yanıtla #1 :** 07 Mayıs 2009 18:51:52 »

bunu yaptım fakat bu internet explorera ekliyor ama ben kendi projemde bir list boxda filan kayıt etmesini istyiyorumm yardımcı olabilirmisiniz ?

Hunter · « **Yanıtla #2 :** 01 Ağustos 2009 03:32:07 »

olay bu kısımda bitio fav := Load('Software\Microsoft\Windows\CurrentVersion\Ex plorer\Shell Folders','Favorites');

sanirim kendi webbrowser dizininizle deişirseiniz sorun çözülür

barutali · « **Yanıtla #3 :** 01 Ağustos 2009 15:29:52 »

Alıntı yapılan: theblow - 07 Mayıs 2009 18:51:52

bunu yaptım fakat bu internet explorera ekliyor ama ben kendi projemde bir list boxda filan kayıt etmesini istyiyorumm yardımcı olabilirmisiniz ?

twebbrowser kullanıyorsan adres çubuğu olarak bir tedit te kullanıyorsun demektir... yada ona benzer bi bileşen
tedit kullandığını varsayarak ...

Kod: (Unknown Language)

listebox1.items.add(edit1.text);
 

olarak listbox a editte yazan veriyi ekleyebilirsin...

Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

Gönderen Konu: TWebBrowser nesnesinde görüntülenen bir web sayfasını favorilere ekleme (Okunma sayısı 2084 defa)

ALUCARD

TWebBrowser nesnesinde görüntülenen bir web sayfasını favorilere ekleme

theblow

Ynt: TWebBrowser nesnesinde görüntülenen bir web sayfasını favorilere ekleme

Hunter

Ynt: TWebBrowser nesnesinde görüntülenen bir web sayfasını favorilere ekleme

barutali

Ynt: TWebBrowser nesnesinde görüntülenen bir web sayfasını favorilere ekleme