lancer un batch avec CreateProcess et le réduire !! [FAQ]

**hijodelanoche** · 23/01/2006, 23h36

voilà, je lance un fichier bat avec CreateProcess, et je ne vois pas quel parametre changer pour que mon fichier bat soit lancer en réduit.
si quelqu'un a une idée ...

Merci ^_^

mon code :

Code :

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

CreateProcess(nil,PChar(monfichier.bat),nil,nil,true,0,nil,nil,StartInfo,ProcessInformation)

**Pedro** · 23/01/2006, 23h49

Salut

http://delphi.developpez.com/faq/?pa...terapplication avec les paramètres de ShowCmd

**hijodelanoche** · 24/01/2006, 00h04

désolé, je peux paraitre un peu con ( beaucoup je suis sur ^_^)
mais j essaye de mettre SW_SHOWMINIMIZED, et ça ne marche a aucun endroit de mon createprocess ....

**hijodelanoche** · 24/01/2006, 00h23

pour etre plsu précis, je veux lancer un batch en mode réduit et attendre que le processus soit finit.
pour celà j'ai récupérer la fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function LanceAppliAttenteFin(NomFichier:string):boolean;
 
var
  StartInfo : TStartupInfo;
  ProcessInformation : TProcessInformation;
begin
  result:=true;
  ZeroMemory(@StartInfo, sizeof(StartInfo)); // remplie de 0 StartInfo
  StartInfo.cb:=sizeof(StartInfo);
  if CreateProcess(nil,PChar(NomFichier),nil,nil,true,0,nil,nil,StartInfo,ProcessInformation)
  then WaitForSingleObject(ProcessInformation.hProcess, INFINITE)// attend que l'application désignée par le handle ProcessInformation.hProcess soit terminée
  else result:=false;
end;

mais ça ne me permet pas de lancer le bath en mode reduit ....

si quelqu'un a une idée ^_^

**hijodelanoche** · 24/01/2006, 10h51

personne n entrevoit la solution svp ??
merci ^_^

**vanquish** · 24/01/2006, 12h41

Salut,

Voilà un bout de code trouvé sur internet (une recherche sur google devrait donner accès au source complet).

La fenêtre n'apparait pas en minimisée, mais n'apparait pas du tout !
Au final la fonction retourne le ERRORLEVEL, ainsi que la sortie console dans une TStringList (qui doit avoir été créé par l'appelant) - un peu dans le désordre en ce qui concerne stdout et stderr.

Attention, si ton programme retourne des centaines de milliers de lignes à l'écran (type remontage d'une sauvegarde mysql), il faut certainement adapter la gestion du TStringList.

Cordialement

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
 
 
(*:
   DsiWin32.pas
   Collection of Win32 wrappers and helper functions.
   Free for personal and commercial use. No rights reserved.
 
   Maintainer        : gabr
   Contributors      : ales, aoven, gabr, Lee_Nover, _MeSSiah_, Miha-R, Odisej, xtreme,
                       Brdaws, Gre-Gor
   Creation date     : 2002-10-09
   Last modification : 2005-01-27
   Version           : 1.12a
*)
 
procedure DSiCloseHandleAndNull(var handle: THandle);
begin
   if handle <> 0 then begin
      CloseHandle(handle);
      handle := 0;
   end;
end; { DSiCloseHandleAndNull }
 
 
function DSiExecuteAndCapture(const app: string; output: TStrings; const workDir: string): LongInt;
const
   StartBufSize = 1024;
var
   bAvail     : longword;
   bRead      : longword;
   buffer     : pointer;
   exitCode   : longword;
   iBufSize   : cardinal;
   last       : string;
   newStdIn   : THandle;
   newStdOut  : THandle;
   pBuf       : PChar;
   PI         : TProcessInformation;
   pSentinel  : PChar;
   read_StdOut: THandle;
   SA         : TSecurityAttributes;
   SD         : TSecurityDescriptor;
   SI         : STARTUPINFO;
   str        : string;
   useWorkDir : string;
   write_StdIn: THandle;
begin
   Result := -1;
   buffer := nil;
   write_StdIn := 0;
   read_StdOut := 0;
   newStdOut := 0;
   newStdIn := 0;
   ZeroMemory(@PI, SizeOf(PI));
   ZeroMemory(@SA, SizeOf(SA));
   try
      { Za Windows NT  inicializiraj security descriptor. }
      // if DSiIsWinNT then begin
      if (Win32Platform = VER_PLATFORM_WIN32_NT) then begin
        InitializeSecurityDescriptor(@SD, SECURITY_DESCRIPTOR_REVISION);
        SetSecurityDescriptorDacl(@SD, true, nil, false);
        SA.lpSecurityDescriptor := @SD;
      end
      else
        SA.lpSecurityDescriptor := nil;
      SA.nLength := SizeOf(TSecurityAttributes);
      SA.bInheritHandle := true; // dovoli dedovanje handlov
      { Ustvari nov stdin pipe. }
      if not CreatePipe(newStdIn, write_StdIn, @SA, 0) then
        Exit;
      { Ustvari nov stout pipe. }
      if not CreatePipe(read_StdOut, newStdOut, @SA, 0) then
        Exit;
      { Nastavi parametre novega procesa. }
      ZeroMemory(@SI, SizeOf(TStartupInfo));
      SI.cb := SizeOf(TStartupInfo);
      SI.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
      SI.wShowWindow := SW_HIDE;
      SI.hStdOutput := newStdOut;
      SI.hStdError := newStdOut;
      SI.hStdInput := newStdIn;
      if workDir = '' then
        GetDir(0, useWorkDir)
      else
        useWorkDir := workDir;
      { Startaj proces. }
      if not CreateProcess(nil, PChar(app), nil, nil, true,
               NORMAL_PRIORITY_CLASS, nil, PChar(useWorkDir), SI, PI)
      then
        Exit;
      //Result := PI.hProcess;
      last := ''; // buffer za shranjevanje nedokoncanih vrstic (brez zakljucnega CRLF)
      iBufSize := StartBufSize;
      buffer := AllocMem(iBufSize);
      try
        GetExitCodeProcess(PI.hProcess, exitCode);
        while exitCode = STILL_ACTIVE do begin
          { Poglej, ce je na stdout pipi kaj podatkov. }
          PeekNamedPipe(read_StdOut, buffer, iBufSize, @bRead, @bAvail, nil);
          if (bRead > 0) then begin
            if (iBufSize < bAvail) then begin // ce je buffer premajhen, ga povecaj
              iBufSize := bAvail;
              ReallocMem(buffer, iBufSize);
            end;
            ZeroMemory(buffer, iBufSize); // pocisti buffer
            ReadFile(read_StdOut, buffer^, iBufSize, bRead, nil); // preberi stdout pipe
            str := last; // shrani prejsnjo nedokoncano vrstico
            pBuf := buffer;
            pSentinel := pBuf;
            Inc(pSentinel, bRead);
            while (pBuf < pSentinel) do begin
              case pBuf^ of
                #0: Inc(pBuf);
                #10:
                  begin // konec vrstice
                    Inc(pBuf);
                    Output.Add(Str);
                    str := '';
                  end; //#10
                #13:
                  begin
                    Inc(pBuf);
                    if (pBuf < pSentinel) and (pBuf^ = #10) then
                      Inc(pBuf); // preskoci, ker je to konec vrstice
                    Output.Add(Str);
                    str := '';
                  end; //#13
                else begin
                  str := str + pBuf^; // shrani prebrani znak
                  Inc(pBuf);
                end; //else
              end; //case
            end;
            last := str; // shrani morebitno nedokon?ano vrstico
          end;
          Sleep(1); // pavza
          GetExitCodeProcess(PI.hProcess, exitCode);
        end;
      finally FreeMem(buffer, iBufSize); end;
      result := exitCode ;
      if (Last <> '') then
        Output.Add(Last); // poslji zadnjo vrstico tudi, ce ni bila dokoncana
   finally
      { Pocisti za sabo. }
      DSiCloseHandleAndNull(PI.hThread);
      DSiCloseHandleAndNull(PI.hProcess);
      DSiCloseHandleAndNull(NewStdIn);
      DSiCloseHandleAndNull(NewStdOut);
      DSiCloseHandleAndNull(Read_StdOut);
      DSiCloseHandleAndNull(Write_StdIn);
   end;
end; { DSiExecuteAndCapture }