Bonjour à tous

Voici un code que j'utilisais en D7 et sous Window XP. Cela fonctionnait fort bien. Le même sous D7 mais Window 7 plante
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
   try
      OO_Service:=CreateOleObject('com.sun.star.ServiceManager');
      OO_Desktop:=   
     OO_Service.CreateInstance('com.sun.star.frame.Desktop');
     except
         MessageDlg('Open Office n''a pas pu être lancé',mtError,[mbOk],0);
     Close;
     end;
 
NomFichier := StringReplace('C:\PERSONNEL\demo.sxw'
                                           , '\', '/', [rfReplaceAll, rfIgnoreCase]);
 
     properties:=VarArrayCreate([0,1],varVariant);
     CoreServ:=   
     OO_Service.CreateInstance('com.sun.star.reflection.CoreReflection');
 
 CoreServ.forName('com.sun.star.beans.PropertyValue').CreateObject(propC);
   CoreServ.forName('com.sun.star.beans.PropertyValue').CreateObject(propL);
    propC.name:='Hidden';
   propC.Value:=true;     
   properties[0]:=propC;
   propL.Name := 'ReadOnly';
   PropL.Value := true;
   Properties[1]:=PropL;
// C'est sur l'ordre qui suit que ce produit le plantage
   OO_Doc := OO_Desktop.LoadComponentFromURL(NomFichier,
                                          '_blank',
                                           0,
                                           properties);
je ne les ai pas ajoutées, mais il y a toutes les déclarations nécessaires. C'est à l'exécution que j'ai le pb

Le message d'erreur est le suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
 com.sun.star.lang.IllegalArgumentException: URL seems to be an unsupported one
Cela vient-il d'une erreur de ma part ou d'un nouveau "bidule" de W7 ?

d'avance !