Скрытно WinExec chkdsk

[AppData]

Как программно / скрытно

провести проверку на сектора. chkdsk без подтверждения?

[Stilet]

Скрытно не выйдет. В любом случае проверка начинается после перезапуска компа, а это заметнее некуда.

[AppData]

ну перезапуск. еще ничего! я не против! я про то когда показывает командную строку можно закрыть SW_HIDE а как подтверждение программно подтвердить? чтобы визуально не соглашаться Y

[Человек_Борща]

в stdin через Pipes отправить y

[AppData]

Человек_Борща, уважаемый программист. мне пожалуйста не большой код не сложного примера.

[Человек_Борща]

Погуглите "delphi CreateProcess консольный ввод" такие вопросы всплывают чаще чем "hello world".

В Lazarus есть готовый компонент TProcess, для Delphi он тоже есть в пакете JEDI.

[AppData]

Человек_Борща, я наверное делаю что то не так. потому что вопрос возник. Y/yes N/no

procedure TForm1.Button1Click(Sender: TObject);
var
   StartInfo: TStartUpInfo;
   ProcInfo: TProcessInformation;
   createOK: Boolean;
   sMyBat: string;

begin
    FillChar(StartInfo, SizeOf(TStartUpInfo), #0);
    FillChar(ProcInfo, SizeOf(TProcessInformation), #0);
    StartInfo.cb := SizeOf(TStartUpInfo);
    StartInfo.dwFlags      := STARTF_USESHOWWINDOW;
    StartInfo.wShowWindow := SW_SHOWMINIMIZED;

    sMyBat  :='chkdsk c:';
    UniqueString(sMyBat); //this make the magic.
    createOK := CreateProcess(Nil,pchar(sMyBat),Nil, Nil, false,
                              CREATE_NEW_PROCESS_GROUP+HIGH_PRIORITY_CLASS,
                              NIL, NIL, STARTINFO, PROCINFO);
    {if createOK then
       waitForSingleObject(PROCINFO.HPROCESS, Infinite);}
end;

[AppData]

Кто знает, как ..

в CreateProcess cmd.exe /S /K "chkdsk c: /F"

[AppData]

некому подсказать7

[Человек_Борща]

можно сразу chkdsk c: /F запускать без cmd