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