Versteckter Shell-Aufruf per CreateProcess

[Ares]

Hallo!

Ich habe mir eine Funtkion geschrieben die mit Hilfe des Windows-Tools reg.exe Daten aus der Registy in eine .reg Datei exportiert.

Delphi-Quellcode:

function regExport(fileName:String; root:HKEY; regKey:String): TregError;
var StartupInfo: TStartupInfo;
    ProcessInfo: TProcessInformation;
    prefix:String;
begin
     try
        FillChar(StartupInfo, SizeOf(TStartupInfo),0);
        StartupInfo.cb:=SizeOf(TStartupInfo);
        StartupInfo.wShowWindow :=0;

        {ShellExecute(mainForm.Handle
             ,'open'
             ,'reg.exe'
             ,PChar('export '+ '"'+prefix+regKey+'" "'+fileName+'"')
             ,''
             ,SW_HIDE); }

        if root=HKCU then prefix:='HKCU';
        if root=HKCU then prefix:='HKCU';
        if root=HKLM then prefix:='HKLM';
        if root=HKU  then prefix:='HKU';
        if root=HKCC then prefix:='HKCC';
        DeleteFile(PChar(fileName));

        CreateProcess(
           nil,
           PChar('reg export '+ '"'+prefix+regKey+'" "'+fileName+'"'),
           nil,
           nil,
           false,
           NORMAL_PRIORITY_CLASS,
           nil,
           nil,
           startupinfo,
           ProcessInfo
        );

        WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
        CloseHandle(ProcessInfo.hProcess);      
     except
        {...}
     end;
end;

Statt dem ShellExecute verwende ich CreateProcess damit das Programm auf die Beendigung des Exports durch reg.exe wartet.

Das Problem hierbei ist nun, dass unter Windows Vista für den Bruchteil einer Sekunde eine Eingabeaufforderung angezeigt wird wenn die Fuktion ausgeführt wird. Das ist offensichtlich das Fenster in dem Exportprozess arbeitet. Wie kann man das vertecken?

Bei dem Aufruf von ShellExecute mit SW_HIDE kann man die Fenster unterdrücken. Aber dann wird der Export ja nicht abgewartet... Die StartupInfo habe ich komplett auf 0 gesetzt und wShowWindow sogar nochmal explizit. Dennoch werden die Fenster angezeigt.

Hat jemand eine Idee, wie man das lösen kann?

Besten Dank
Ares

[moonwhaler]

Delphi-Quellcode:

function WinExecAndWait32(FileName: string; Visibility: integer): Integer;
var { by Pat Ritchey }
   zAppName: array[0..512] of char;
   zCurDir: array[0..255] of char;
   WorkDir: string;
   StartupInfo: TStartupInfo;
   ProcessInfo: TProcessInformation;

begin
   StrPCopy(zAppName, FileName);
   GetDir(0, WorkDir);
   StrPCopy(zCurDir, WorkDir);
   FillChar(StartupInfo, Sizeof(StartupInfo), #0);
   StartupInfo.cb := Sizeof(StartupInfo);
   StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
   StartupInfo.wShowWindow := Visibility;
   if not CreateProcess(nil, zAppName, { pointer to command line string }
      nil, { pointer to process security attributes}
      nil, { pointer to thread security attributes }
      false, { handle inheritance flag }
      CREATE_NEW_CONSOLE or { creation flags }
      NORMAL_PRIORITY_CLASS,
      nil, { pointer to new environment block }
      nil, { pointer to current directory name }
      StartupInfo, { pointer to STARTUPINFO }
      ProcessInfo) then Result := -1 { pointer to PROCESS_INF }
   else
   begin
      WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
      GetExitCodeProcess(ProcessInfo.hProcess, Cardinal(Result));
      CloseHandle(ProcessInfo.hProcess);
      CloseHandle(ProcessInfo.hThread);
   end;
end;

So hab ich das benutzt...

[Olli]

Interessante Theorie, sollte das Problem aber nichtmal tangieren. Er will schließlich "nur", daß die Konsole nicht angezeigt wird. Das kann man erreichen, indem man bei Startup-Info die entsprechenden Handles für STDIN, STDOUT, STDERR setzt - und zwar auf selbst erzeugte Pipes. Ist man an der Ausgabe interessiert, muß man auch noch lesen was in die Pipes geschrieben wurde.

Für normales ShellExecute mit Warten würde ich nie eine simple CreateProcess-Lösung vorschlagen, weil die meisten der Vorteile von ShellExecute dann nicht annähernd geboten werden. Daher immer sowas wie ShellExecuteAndWait (direkt) benutzen. Ist allerdings in diesem Fall - wie im ersten Absatz beschrieben - nicht hilfreich, da ist CreateProcess die einzige Lösung.