Afficher les objects de windows explorer dans un webbrowser

Soyez le premier à donner votre avis sur cette source.

Vue 4 557 fois - Téléchargée 608 fois

Description

Un exemple de code qui montre comment afficher les objects de Windows Explorer dans un WebBrowser ...

Source / Exemple :


unit Unit1;

{-----==================================================================-----
Titre: Afficher les objects de Windows Explorer dans un WebBrowser
Auteur: H@PPyZERØ5
E-mail: happy05@programmer.net
-----==================================================================-----}

interface

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

type
  TForm1 = class(TForm)
    ExplorerWebBrowser: TWebBrowser;
    Btn_Poste_de_travail: TButton;
    Btn_Panneau_de_configuration: TButton;
    Btn_Mes_documents: TButton;
    Btn_Corbeille: TButton;
    Btn_Polices: TButton;
    Btn_Outils_dadministration: TButton;
    Btn_Taches_planifiees: TButton;
    Btn_Scanneurs_et_appareils_photo: TButton;
    Btn_Favoris_reseau: TButton;
    Btn_Imprimantes_et_telecopieurs: TButton;
    Btn_Connexions_reseau: TButton;
    Btn_Search_Results_Folder: TButton;
    Panel1: TPanel;
    Btn_O_Mes_documents_N: TButton;
    Btn_O_Mes_documents_E: TButton;
    Btn_O_Mes_documents_N_s: TButton;
    procedure Btn_Poste_de_travailClick(Sender: TObject);
    procedure Btn_Panneau_de_configurationClick(Sender: TObject);
    procedure Btn_Mes_documentsClick(Sender: TObject);
    procedure Btn_CorbeilleClick(Sender: TObject);
    procedure Btn_PolicesClick(Sender: TObject);
    procedure Btn_Outils_dadministrationClick(Sender: TObject);
    procedure Btn_Taches_planifieesClick(Sender: TObject);
    procedure Btn_Scanneurs_et_appareils_photoClick(Sender: TObject);
    procedure Btn_Favoris_reseauClick(Sender: TObject);
    procedure Btn_Imprimantes_et_telecopieursClick(Sender: TObject);
    procedure Btn_Connexions_reseauClick(Sender: TObject);
    procedure Btn_Search_Results_FolderClick(Sender: TObject);
    procedure Btn_O_Mes_documents_NClick(Sender: TObject);
    procedure Btn_O_Mes_documents_EClick(Sender: TObject);
    procedure Btn_O_Mes_documents_N_sClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
//la liste des CLSID ce trouve dans le registre HKEY_CLASSES_ROOT\CLSID
  Poste_de_travail = '::{20D04FE0-3AEA-1069-A2D8-08002B30309D}';
  Panneau_de_configuration = '::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}';
  Mes_documents = '::{450D8FBA-AD25-11D0-98A8-0800361B1103}';
  Corbeille = '::{645FF040-5081-101B-9F08-00AA002F954E}';
  Polices = '::{D20EA4E1-3957-11d2-A40B-0C5020524152}';
  Outils_dadministration = '::{D20EA4E1-3957-11d2-A40B-0C5020524153}';
  Taches_planifiees = '::{D6277990-4C6A-11CF-8D87-00AA0060F5BF}';
  Scanneurs_et_appareils_photo = '::{E211B736-43FD-11D1-9EFB-0000F8757FCD}';
  Favoris_reseau = '::{208D2C60-3AEA-1069-A2D7-08002B30309D}';
  Imprimantes_et_telecopieurs = '::{2227A280-3AEA-1069-A2DE-08002B30309D}';
  Connexions_reseau = '::{7007ACC7-3202-11D1-AAD2-00805FC1270E}';
  Search_Results_Folder = '::{E17D4FC0-5564-11D1-83F2-00A0C90DC849}';

implementation

{$R *.dfm}

//Navigate(Poste_de_travail)
procedure TForm1.FormShow(Sender: TObject);
begin
ExplorerWebBrowser.Navigate(Poste_de_travail);
Form1.Caption := 'Poste de travail';
end;

procedure TForm1.Btn_Poste_de_travailClick(Sender: TObject);
begin
ExplorerWebBrowser.Navigate(Poste_de_travail);
Form1.Caption := 'Poste de travail';
end;

procedure TForm1.Btn_Panneau_de_configurationClick(Sender: TObject);
begin
ExplorerWebBrowser.Navigate(Panneau_de_configuration);
Form1.Caption := 'Panneau de configuration';
end;

procedure TForm1.Btn_Mes_documentsClick(Sender: TObject);
begin
ExplorerWebBrowser.Navigate(Mes_documents);
Form1.Caption := 'Mes documents';
end;

procedure TForm1.Btn_CorbeilleClick(Sender: TObject);
begin
ExplorerWebBrowser.Navigate(Corbeille);
Form1.Caption := 'Corbeille';
end;

procedure TForm1.Btn_PolicesClick(Sender: TObject);
begin
ExplorerWebBrowser.Navigate(Polices);
Form1.Caption := 'Polices';
end;

procedure TForm1.Btn_Taches_planifieesClick(Sender: TObject);
begin
ExplorerWebBrowser.Navigate(Taches_planifiees);
Form1.Caption := 'Taches planifiees';
end;

procedure TForm1.Btn_Outils_dadministrationClick(Sender: TObject);
begin
ExplorerWebBrowser.Navigate(Outils_dadministration);
Form1.Caption := 'Outils d''administration';
end;

procedure TForm1.Btn_Scanneurs_et_appareils_photoClick(Sender: TObject);
begin
ExplorerWebBrowser.Navigate(Scanneurs_et_appareils_photo);
Form1.Caption := 'Scanneurs et appareils photo';
end;

procedure TForm1.Btn_Favoris_reseauClick(Sender: TObject);
begin
ExplorerWebBrowser.Navigate(Favoris_reseau);
Form1.Caption := 'Favoris reseau';
end;

procedure TForm1.Btn_Imprimantes_et_telecopieursClick(Sender: TObject);
begin
ExplorerWebBrowser.Navigate(Imprimantes_et_telecopieurs);
Form1.Caption := 'Imprimantes et telecopieurs';
end;

procedure TForm1.Btn_Connexions_reseauClick(Sender: TObject);
begin
ExplorerWebBrowser.Navigate(Connexions_reseau);
Form1.Caption := 'Connexions reseau';
end;

procedure TForm1.Btn_Search_Results_FolderClick(Sender: TObject);
begin
ExplorerWebBrowser.Navigate(Search_Results_Folder);
Form1.Caption := 'Search Results Folder';
end;

//Ouvrir Mes documents - Normal
procedure TForm1.Btn_O_Mes_documents_NClick(Sender: TObject);
begin
ShellExecute(0,nil,pchar('Explorer'), pchar('/N,' + Mes_documents),nil,
 SW_SHOWNORMAL);
end;

//Ouvrir Mes documents - Explorer
procedure TForm1.Btn_O_Mes_documents_EClick(Sender: TObject);
begin
ShellExecute(0,nil,pchar('Explorer'), pchar('/E,' + Mes_documents),nil,
 SW_SHOWNORMAL);
end;

//Ouvrir Mes documents - Normal & Sélectionner Mes images
procedure TForm1.Btn_O_Mes_documents_N_sClick(Sender: TObject);
begin
ShellExecute(0,nil,pchar('Explorer'), pchar('/N,' + Mes_documents +',/select,'
  + Mes_documents + '\Mes images'),nil,SW_SHOWNORMAL);
end;

end.

//to be continued...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
34
Date d'inscription
mardi 1 mai 2012
Statut
Membre
Dernière intervention
7 juillet 2017

Bonjour,
Cela fonctionne tres bien avec mon Windows XP, et pour ce qui est de Seven je ne sais pas mais avec une recherche sur google avec les mots (CLSID windows 7) j'ai trouvé ceci :
http://www.sevenforums.com/tutorials/110919-clsid-key-list-windows-7-a.html
Messages postés
490
Date d'inscription
dimanche 5 décembre 2004
Statut
Membre
Dernière intervention
6 avril 2009
2
Bonjour à toutes et à tous,

@ happy05, cela ne fonctionne pas sous D6 et Seven 64bits, seul le dossier "Mes documents" s'ouvre, les autres c'est "Paramètre incorrect" déja à l'ouverture.

Je pense que cette application ressemble à la lecture des fichiers "Cpl".

@+,

Cincap

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.