Mega Code Archive
Internet explorer in ayarlarıyla ilgili_2
<![CDATA[
-get ie start page
procedure TForm1.Button1Click(Sender: TObject);
var Reg : TRegistry;
s : string ;
begin
reg:=tregistry.create;
reg.RootKey:= hkey_current_user;
if reg.openkey('Software\Microsoft\Internet Explorer\Main',true) then
s:=reg.ReadString('Start Page');
edit1.text := s ;
reg.closekey;
end;
----------------------------------------------------------------------
-set ie start page
procedure TForm1.Button2Click(Sender: TObject);
var
reg:TRegistry;
newpage :string;
begin
reg:=TRegistry.Create;
reg.RootKey:= hkey_current_user;
reg.OpenKey('Software\Microsoft\Internet Explorer\Main',true);
dt := edit1.text;
Reg.WriteString('Start Page',newpage);
Reg.Free;
end;
----------------------------------------------------------------------
-show full url NO
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:= hkey_current_user;
reg.OpenKey('Software\Microsoft\Internet Explorer\Main',true);
Reg.WriteString('Show_FullURL','no');
Reg.Free;
end;
----------------------------------------------------------------------
-show full url YES
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:= hkey_current_user;
reg.OpenKey('Software\Microsoft\Internet Explorer\Main',true);
Reg.WriteString('Show_FullURL','yes');
Reg.Free;
end;
----------------------------------------------------------------------
-show status bar NO
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:= hkey_current_user;
reg.OpenKey('Software\Microsoft\Internet Explorer\Main',true);
Reg.WriteString('Show_StatusBar','no');
Reg.Free;
end;
----------------------------------------------------------------------
-show status bar YES
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:= hkey_current_user;
reg.OpenKey('Software\Microsoft\Internet Explorer\Main',true);
Reg.WriteString('Show_StatusBar','yes');
Reg.Free;
end;
----------------------------------------------------------------------
-show toolbar NO
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:= hkey_current_user;
reg.OpenKey('Software\Microsoft\Internet Explorer\Main',true);
Reg.WriteString('Show_ToolBar','no');
Reg.Free;
end;
----------------------------------------------------------------------
-show toolbar YES
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:= hkey_current_user;
reg.OpenKey('Software\Microsoft\Internet Explorer\Main',true);
Reg.WriteString('Show_ToolBar','yes');
Reg.Free;
end;
----------------------------------------------------------------------
-shop url in status bar NO
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:= hkey_current_user;
reg.OpenKey('Software\Microsoft\Internet Explorer\Main',true);
Reg.WriteString('Show_URLinStatusBar','no');
Reg.Free;
end;
----------------------------------------------------------------------
-show url in status bar YES
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:= hkey_current_user;
reg.OpenKey('Software\Microsoft\Internet Explorer\Main',true);
Reg.WriteString('Show_URLinStatusBar','yes');
Reg.Free;
end;
----------------------------------------------------------------------
-show url in toolbar NO
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:= hkey_current_user;
reg.OpenKey('Software\Microsoft\Internet Explorer\Main',true);
Reg.WriteString('Show_URLToolBar','no');
Reg.Free;
end;
----------------------------------------------------------------------
-show url in toolbar YES
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:= hkey_current_user;
reg.OpenKey('Software\Microsoft\Internet Explorer\Main',true);
Reg.WriteString('Show_URLToolBar','yes');
Reg.Free;
end;
----------------------------------------------------------------------
-show go button NO
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:= hkey_current_user;
reg.OpenKey('Software\Microsoft\Internet Explorer\Main',true);
Reg.WriteString('ShowGoButton','no');
Reg.Free;
end;
----------------------------------------------------------------------
-show go button YES
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:= hkey_current_user;
reg.OpenKey('Software\Microsoft\Internet Explorer\Main',true);
Reg.WriteString('ShowGoButton','yes');
Reg.Free;
end;
----------------------------------------------------------------------
-close all open ie windows
Var
IExplorer : Thandle;
begin
IExplorer := FindWindow(''IEFrame'',nil);
If IExplorer <> 0 Then
SendMessage(IExplorer, WM_SYSCOMMAND,SC_CLOSE,0);
----------------------------------------------------------------------
-minimise all open ie windows
Var
IExplorer : Thandle;
begin
IExplorer := FindWindow(''IEFrame'',nil);
If IExplorer <> 0 Then
SendMessage(IExplorer, WM_SYSCOMMAND,SC_MINIMIZE,0);
----------------------------------------------------------------------
-maximise all open ie windows
Var
IExplorer : Thandle;
begin
IExplorer := FindWindow(''IEFrame'',nil);
If IExplorer <> 0 Then
SendMessage(IExplorer, WM_SYSCOMMAND,SC_MAXIMIZE,0);
----------------------------------------------------------------------
-get last 25 typed url's
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
Val:TStringList;
I:Integer;
begin
Reg:=TRegistry.Create;
Val:=TStringList.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('\SOFTWARE\Microsoft\Internet Explorer\TypedURLs',False);
Reg.GetValueNames(Val);
for I := 0 to Val.Count -1 do
Memo1.Lines.Add (Val.Strings[I] + ' : ' + Reg.ReadString(Val.Strings[I]));
Val.Free;
Reg.Free;
end ;
]]>