Discussion :

[ero-sennin]

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

[WolffN]

bonjour

essaye voir d'utiliser le nom de fichier dos -> cf API

GetShortPathName

ou alors d'encadrer ton nom de fichier par des "

[Pedro]

Salut l'Ermite

Dans le cas d'un nom long, il faut utiliser des guillemets. Tu as donc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShellExecute(0,'OPEN',PChar(ExtractFilePath(ParamStr(0))+'PSPad.exe'),PChar('"' + pathDirectory+sr.Name + '"'),Nil, SW_SHOW);

J'ai ajouté des guillemets avant et après pathDirectory+sr.Name. Normalement ça devrait marcher

[ero-sennin]

Salut Pedro

J'ai fait la modif du code et je teste tout ca demain car je n'ai pas de windows 98 sous la main.

Je te tiens donc au courant!

Bonne Soirée et merci

[ero-sennin]

Salut Pedro,

Comme promis, je viens te donner des nouvelles concernant le pb.
Hé bien, c'est résolu et je te remercie de m'avoir aider

Bonne Aprem et @ la prochaine