Discussion :

[T-B]

bonjour,

j'ai un petit souci avec la comande shellexecute que voici

Code :

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

1
2
 
ShellExecute(0, 'Open', PCHAR('c:\program files\openoffice.org 2.3\program\unopkg.exe'),PCHAR(' list --shared > list.txt'), '', SW_SHOWNORMAL);

je veux retourner le resultat de la commande unopkg list --shared dans un fichier texte et faisant > list.txt mais ça ne marche le fichier n'est pas créer et je n'est pas d'erreur

ou est le problème ?

merci

[WolffN]

bonjour

essaye en encadrant ton lancement d'exe par " et rajoute le dossier d'execution

sinon fait un point .bat et execute le par shell execute

[T-B]

J'ai tout essaye, dans tous les sens le code retour pour info est 42.

je vais essayer le batch

merci

[Cl@udius]

J'ai tout essaye, dans tous les sens le code retour pour info est 42.

42 c'est la valeur de retour du ShellExcute ?

Je te pose cette question car lors d'un échec avec ShellExecute sa valeur de retour est inférieure ou égale à 32.

D'où ma question.

@+ Claudius

[ShaiLeTroll]

Attention, ShellExecute n'attend pas la fin d'execution, ... le résultat, au dessus de 32, c'est ID de process (plus ou moins)

Tient, j'ai aussi eu besoin d'un retour fichier, voici ce que j'ai écrit (j'ai tronqué quelques codes spécifiques à ma classe, quelques erreurs peuvent subsister), sinon un GetExitCodeProcess pourrait remplacer le fichier si c'est un entier que tu veux récupérer ...

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
34
function CallCmd(const CmdDirectory, CmdName, CmdParam, OutFile: string): Boolean;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  BatFile: file;
  Buf: string;
begin
  AssignFile(BatFile, Format('%sCall_%s.bat', [CmdDirectory, CmdName]));
  try
    Rewrite(BatFile, 1);
    try
      Buf := Format('"%s" %s > "%s"'#13#10, [CmdDirectory+CmdName, CmdParam, OutFile]);
      BlockWrite(BatFile, Buf[1], Length(Buf));
      Buf := Format('DEL "%s"', [TFileRec(BatFile).Name]);
      BlockWrite(BatFile, Buf[1], Length(Buf));
    finally
      CloseFile(BatFile);
    end;
 
    GetStartupInfo(StartupInfo);
    Result := CreateProcess(TFileRec(BatFile).Name, nil, nil, nil, True, 0, nil, PChar(CmdDirectory), StartupInfo, ProcessInfo);
    if Result then
       WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
    Result := FileExists(OutFile);
    if Result then
      AddLog(OutFile);
  except
    on E: Exception do
    begin
      Result := False;
      OutputDebugString(PChar(Format('Error %s, Message : %s', [E.ClassName, E.Message])));
    end;
  end;
end;

[T-B]

j'ai essayé le batch et un autre problème de chemin court ou long

Code :

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

1
2
3
4
5
 
 
la fonction ExtractShortPathName('c:\program files\openoffice.org 2.3\program\unopkg.exe') me retourne ça
 
'c:\PROGRA~1\openoffice.org 2.3\program\unopkg.exe'

et je pense cela vient de la modification de la base de registre

"NtfsDisable8dot3NameCreation"=dword:00000001

il y a t'il un moyen de controurner ça ?


merci

[ShaiLeTroll]

ExtractShortPathName fonctionne correctement, mais tu peux t'en passer, le Bat et ShellExecute avec les "..." supporte très bien les nom longs et les espaces

as tu essayé ma fonction (j'ai ajouté "" au DEL)

Code :

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

CallCmd('c:\program files\openoffice.org 2.3\program\', 'unopkg.exe', 'list --shared', 'list.txt')

[T-B]

J'ai trouvé la solution avec le batch

il faut aussi ajouter des "

merci