Есть ли способ запустить «dir» напрямую?

В my answer to this question, где запрашивающему нужен быстрый способ получить список каталогов на сетевом диске, я предложил использовать команду DOS «dir». К сожалению, это команда, а не программа, поэтому вы не можете выполнить ее с помощью CreateProcess, поэтому мне пришлось поместить ее в пакетный файл. Мне не нравится это решение. Мне кажется, что это взломать. Кто-нибудь знает способ запускать dir из Delphi, а не из внешнего командного файла?Есть ли способ запустить «dir» напрямую?

источник

2010-03-23 Mason Wheeler

Как использовать командный файл как взломать? Это довольно очевидное решение. – defines

Да, вот почему я так быстро подумал об этом. Но «очевидное решение» не обязательно совпадает с «хорошим решением». –

Кажется, что вы хотите что-то вроде DOS API, который будет принимать команды и возвращать результаты для отображения в любом текстовом поле в вашем приложении или что-то в этом роде, не так ли? – Marcelo

Вам не нужен пакетный файл, вы можете просто выполнить:

cmd.exe /c dir

Вы можете проверить возможность командовать с cmd /?:

c:> cmd /? 
CMD [/A | /U] [/Q] [/D] [/E:ON | /E:OFF] [/F:ON | /F:OFF] [/V:ON | /V:OFF] 
    [[/S] [/C | /K] string] 

/C Carries out the command specified by string and then terminates 
: : : : :

источник

2010-03-23 13:52:44 paxdiablo

Есть ли способ сделать это невидимо? Вызов cmd.exe откроет окно DOS в середине вашего приложения. –

@ Мейсон: См. Ответ Мефа. Хитрость заключается в том, чтобы установить wShowWIndow в SW_HIDE и включить STARTF_USESHOWWINDOW в dwFlags. – gabr

Невидимого решение (создать канал, выполните команда, перенаправить stdout на трубу, зачитать трубу):

function Console(const Command: String): String; 
var 
    StartupInfo: TStartupInfo; 
    ProcessInfo: TProcessInformation; 
    SecurityAttr: TSecurityAttributes; 
    OutputPipeRead, OutputPipeWrite: THandle; 
    Res: Boolean; 
    BufSize: Cardinal; 
    Buffer: String; 
    BytesRead: Cardinal; 
begin 
    FillChar(ProcessInfo, SizeOf(TProcessInformation), 0); 

    FillChar(SecurityAttr, SizeOf(TSecurityAttributes), 0); 
    SecurityAttr.nLength := SizeOf(SecurityAttr); 
    SecurityAttr.bInheritHandle := true; 
    SecurityAttr.lpSecurityDescriptor := nil; 

    CreatePipe(OutputPipeRead, OutputPipeWrite, @SecurityAttr, 0); 

    FillChar(StartupInfo, SizeOf(TStartupInfo), 0); 
    StartupInfo.cb:=SizeOf(StartupInfo); 
    StartupInfo.hStdInput := 0; 
    StartupInfo.hStdOutput := OutputPipeWrite; 
    StartupInfo.hStdError := OutputPipeWrite; 
    StartupInfo.wShowWindow := SW_HIDE; 
    StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES; 

    Res := CreateProcess(nil, PChar(command), nil, nil, true, 
        CREATE_DEFAULT_ERROR_MODE or CREATE_NEW_CONSOLE or 
        NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo); 

    CloseHandle(OutputPipeWrite); 

    Result := ''; 

    if Res then 
    begin 
    SetLength(Buffer, 5000); 
    BufSize := Length(Buffer); 
    repeat 
     Res := ReadFile(OutputPipeRead, Buffer[1], BufSize, BytesRead, nil); 
     Result := Result + Copy(Buffer, 1, BytesRead); 
    until not Res; 

    WaitForSingleObject(ProcessInfo.hProcess, INFINITE); 
    CloseHandle(ProcessInfo.hProcess); 
    end; 

    CloseHandle(OutputPipeRead); 
end;

Образец использования :

ShowMessage(Console('cmd /c dir C:\'));

источник

2010-03-23 14:00:12 Leo

Использование DSiWin32:

sl := TStringList.Create; 
if DSiExecuteAndCapture('cmd.exe /c dir', sl, 'c:\test', exitCode) = 0 then 
    // exec error 
else 
    // use sl 
sl.Free;

источник

2010-03-23 15:01:34 gabr

Почему не FindFirstFile? Он возвращает атрибут для каждого элемента, который можно сравнить с FILE_ATTRIBUTE_DIRECTORY, чтобы проверить каталог. Я очень подозреваю, что dir ничего не делает. Использование команды dir похоже на использование строки на клавиатуре.

источник

2010-03-23 16:14:08 ChristianWimmer

Следуя за другим потоком, я думаю, что OP больше интересовался вызовом интерпретатора командной оболочки, а не «dir». –

Есть ли способ запустить «dir» напрямую?

ответ

Смежные вопросы