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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellAPI, Registry, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//Navigateur par défaut
function GetDefaultBrowserName :string;
var
BrowserName :array[0..MAX_PATH -1] of char;
const
FileName = 'c:\dummy.html';
begin
FileCreate(FileName);
FindExecutable(FileName, nil, BrowserName);
Result := BrowserName;
DeleteFile(FileName);
end;
//Page de démarrage de IE
function GetIEStartPage :string;
begin
with TRegistry.Create do
begin
RootKey := HKEY_CURRENT_USER;
if OpenKeyReadOnly('Software\Microsoft\Internet Explorer\Main') then
begin
Result := ReadString('Start page');
CloseKey;
end
else Result := '';
Free;
end;
end;
//Click bouton
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetDefaultBrowserName);
ShowMessage(GetIEStartPage);
end;
end. |
Partager