CREATECOMOBJECT |
Crée un objet COM |
|---|---|
| Free Pascal | ComObj |
Syntaxe
| Function CreateComObject(Const ClassID:TGUID):IUnknown; |
Paramètres
| Nom | Description |
|---|---|
| ClassID | Ce paramètre permet d'indiquer l'identificateur de classe. |
Description
Cette fonction permet de créer une instance d'un objet COM à partir de son CLSID.
Exemple
L'exemple suivant permet d'utiliser l'objet COM "Scripting.FileSystemObject", faisant partie de Windows Scripting Host (WSH), pour créer un fichier texte :
- Program CreateComObjectExample;
-
- {$mode objfpc}{$H+}
-
- Uses
- SysUtils,ComObj;
-
- Var
- FileSystem:Variant;
- TextFile:Variant;
-
- BEGIN
- Try
- { Crée une instance de Scripting.FileSystemObject }
- FileSystem:=CreateComObject(StringToGUID('{0D43FE01-F093-11CF-8940-00A0C9054228}'));
- { Crée un nouveau fichier texte "exemple.txt" }
- TextFile:=FileSystem.CreateTextFile('exemple.txt',True);
- { Écrit une ligne dans le fichier }
- TextFile.WriteLine('Bonjour, mon premier programme de Free Pascal!');
- { Ferme le fichier }
- TextFile.Close;
- WriteLn('Le fichier exemple.txt a été créé avec succès.');
- Except
- On E: Exception do
- WriteLn('Erreur : ', E.Message);
- End;
- END.
Dernière mise à jour : Dimanche, le 18 Août 2024