[D2010] Est-il possible d'utiliser un chemin réseau avec CreateProcess

Version imprimable

Sous D2010, est-il possible d'utiliser un chemin réseau avec CreateProcess ?
Sous D6 ça fonctionne bien, mais pas sous D2010.

Voici mon code :

Code:

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
 
type
  TTableauWideChar = Array of WideChar;
...
  procedure Remplir(const Fichier: String; var Tableau: TTableauWideChar);
  var
    i: Integer;
  begin
    for I := 1 to Length(Fichier) do
      Tableau[i - 1] := Fichier[i];
  end;
var
    StartupInfo: TStartupInfo;
    ProcessInfo: TProcessInformation;
    Tmp: String;
    Variable : TTableauWideChar;
begin
   ZeroMemory(@StartupInfo, Sizeof(StartupInfo));
   StartupInfo.cb := Sizeof(StartupInfo);
   StartupInfo.dwFlags := STARTF_USESHOWWINDOW;         StartupInfo.wShowWindow := SW_SHOWNORMAL;     
   Tmp := FormMain.REPERTOIRE_FICHIERS + FormMain.num_fiche + '\Couts_' + FormMain.num_fiche + '.xls';
   SetLength(Variable, Length(Tmp));
   Remplir(Tmp, Variable);
   if not CreateProcess(@Variable,nil, nil, nil, False, NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then
   begin
      ShowMessage(SysErrorMessage(GetLastError));
      Exit;
   end;

(Bien sur, le chemin passé en variable est bon; j'ai vérifié).

:hola:

03/02/2012, 08h05
SergioMaster

Il doit y avoir un problème Unicode
String D6 = AnsiString pour D2010
une suggestion : - avec D2010 utilise plutôt CreateProcessW

et ,je ne suis pas sur de moi sur ce point, mais ne ne faut-il pas doubler les '\' ?
03/02/2012, 08h57
Lung

Citation:

Envoyé par SergioMaster

Il doit y avoir un problème Unicode
String D6 = AnsiString pour D2010
une suggestion : - avec D2010 utilise plutôt CreateProcessW

En D2010, CreateProcess est défini comme ça :

Code:

function CreateProcess; external kernel32 name 'CreateProcessW';

Ca veut pas dire que c'est la même chose ?

Citation:

Envoyé par SergioMaster

je ne suis pas sur de moi sur ce point, mais ne ne faut-il pas doubler les '\' ?

Même résultat pour le CreateProcess.
Par contre, le FileExists lui, n'aime pas.
03/02/2012, 11h45
ShaiLeTroll
passé @ d'un tableau dynamique, ça doit faire un peu bcp, ça fait pointeur de pointeur !
Utilise [0] pour passer le premier Char

Code:

if not CreateProcess(@Variable[0], ...

C'est un peu compliqué tout ça ?
Normalement, Tmp c'est un String donc implicite UnicodeString
PChar c'est PWideChar ?
Il doit pouvoir accepter le cast comme avant
Code:

1 2 Tmp := FormMain.REPERTOIRE_FICHIERS + FormMain.num_fiche + '\Couts_' + FormMain.num_fiche + '.xls'; if not CreateProcess(PChar(Tmp),...
03/02/2012, 12h19
Andnotor

Je passerais aussi par PChar(Tmp).

Sinon, sur le remplissage de Variable, il manque le #0 final et si ça marchait sous D6, c'était juste un gros coup de bol !
Mais comme dit Shai, @Variable est l'adresse du pointer et non du premier caractère du tableau. Ça ne devrait de toute façon pas fonctionner :koi:
03/02/2012, 13h43
Lung

En fait, au début j'avais essayé en premier la méthode simple avec un PChar.
Mais comme j'avais obtenu une violation d'accès, j'ai essayé mille et une solutions, en espérant tomber sur la bonne. :aie:

J'ai remis un PChar, et cette fois j'obtiens :

Citation:

%1 n'est pas une application Win32 valide

:bug:

Par contre, ça marche enfin avec :

Code:

Tmp := 'C:\Program Files\Microsoft Office\Office14\excel.exe "' + REPERTOIRE_FICHIERS + num_fiche + '\Couts_' + num_fiche + '.xls"';

Mais ça ne me convient pas. :calim2:
Je ne veux pas avoir à spécifier l'exe correspondant au fichier, comme on peut le faire avec ShellExecute.

Précision : si j'utilise CreateProcess, c'est pour obtenir le PID du processus et le surveiller après.
03/02/2012, 14h10
ShaiLeTroll

Ne confond pas ShellExecute qui fait un peu comme le Double-Clic sur un fichier, il ouvre le programme associé à l'extension !
Mais, tu peux aussi trouver sur PID en trichant un peu [D7] Ouvrir Excel dans une form

Avec CreateProcess, tu dois bien lancer un programme ! Il n'y pas d'association automatique !
ce code pourrait t'interesser pour créer ta surveillance

Sinon Excel, on peut l'utiliser par Automation, c'est bien plus efficace, tu pourras, le cacher, le manipuler (ajouter des menus, imprimer...)

Citation:

Envoyé par Lung

Précision : si j'utilise CreateProcess, c'est pour obtenir le PID du processus et le surveiller après.

Tu peux le faire avec ShellExecuteEx :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function RunAndWait(aVerb, aApp, aParams :string; aShow :integer): boolean;
var
  Info: TShellExecuteInfo;
 
begin
  ZeroMemory(@Info, SizeOf(Info)) ;
  Info.cbSize       := SizeOf(TShellExecuteInfo);
  Info.fMask        := SEE_MASK_NOCLOSEPROCESS;
  Info.lpFile       := PChar(aApp);
  Info.lpParameters := PChar(aParams);
  Info.lpVerb       := PChar(aVerb);
  Info.nShow        := aShow;
 
  Result := ShellExecuteEx(@Info);
 
  if Result then
    WaitForSingleObject(Info.hProcess, INFINITE);
end;

07/02/2012, 08h03
Lung

Citation:

Envoyé par ShaiLeTroll

Sinon Excel, on peut l'utiliser par Automation, c'est bien plus efficace, tu pourras, le cacher, le manipuler (ajouter des menus, imprimer...)

Je sais bien. Je l'utilise beaucoup.
;)

Citation:

Envoyé par Andnotor

Tu peux le faire avec ShellExecuteEx

Génial ! :ccool:
Je ne connaissais pas cette API. Elle a l'air de faire plein de choses intéressantes.

Pour mon problème, c'est tout bon.
Avec le paramètre SEE_MASK_NOCLOSEPROCESS, mon application reprend la main quand la fenêtre excel que j'ai lancée (et pas une autre) se ferme.

:merci: