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...
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.