Bonjour,

Je ne sais pas si je suis dans la bonne section, mais je post tout de même dans cette section.J'ai développé récemment un programme qui permet d'ajouter dans le menu contextuel de windows une entrée supplémentaire permettant d'ouvrir tous les fichiers de même extension que le fichier sélectionné avec PSPad.

Pour cela, j'ai utilisé le ParamStr et ParamCount afin de récupérer tous ce dont j'ai besoin.
Sous Windows XP, lorsque j'ai un fichier du genre "Mon Nouveau fichier.txt", pspad m'ouvre bien un seul document.
Par contre, j'ai remarqué que sur Windows98 PSPad m'ouvre 3 fichier comme ceci: "Mon" , "Nouveau", "fichier.txt".

Quelqu'un a t-il une idée sur ce problème?

Voici un bout de code qui fait mon shellExecute:

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
30
31
32
33
procedure TForm1.FormCreate(Sender: TObject);
var
sr:TSearchRec;
pathDirectory:AnsiString;
extension:string;
fichierSelectionne:AnsiString;
i:integer;
begin
Form1.Visible:=false;
fichierSelectionne:='';
 
for i:=1 to ParamCount do
fichierSelectionne:=fichierSelectionne+ParamStr(i)+' ';
 
 
fichierSelectionne:=Trim(fichierSelectionne);
pathDirectory:=ExtractFilePath(fichierSelectionne);
extension:=ExtractFileExt(fichierSelectionne);
 
if (FindFirst(pathDirectory+'*'+extension,faDirectory,sr))=0 then
begin
 repeat
   if (sr.Name<>'.')And(sr.Name<>'..')Then
   begin
     ShellExecute(0,'OPEN',PChar(ExtractFilePath(ParamStr(0))+'PSPad.exe'),PChar(pathDirectory+sr.Name),Nil, SW_SHOW);
   end;
 until FindNext(sr)<>0;
end
else
ShowMessage('Votre répertoire ou fichier contient des doubles espaces'#13'Impossible d''ouvrir le fichier');
 
Application.Terminate;
end;
Merci