Выполнение команд MS Dos

[Aleksandr]

Как сделать чтобы при вводе досовских команд в memo они выполнялись и их результат выводился с в memo

[Аватар]

Что-то было похожее http://programmersforum.ru/showthread.php?t=160111

[Surgeon]

Сообщение от Aleksandr

Как сделать чтобы при вводе досовских команд в memo они выполнялись и их результат выводился с в memo

В DelphiWorld есть статьи "Как захватить весь вывод в консоли" и "Запустить консольное приложение и получить его стандартный вывод"

[Lesha]

function RunCMD(Comand: String):string;
const BUFSIZE = 2000;
var SecAttr: TSecurityAttributes;
    hReadPipe, hWritePipe: THandle;
    StartupInfo: TStartUpInfo;
    ProcessInfo: TProcessInformation;
    Buffer: Pchar;
    WaitReason,BytesRead: DWord;
    ts:string;
BEGIN
result:='';
 with SecAttr do
  begin
   nlength:= SizeOf(TSecurityAttributes);
   binherithandle:= true;
   lpsecuritydescriptor:= nil;
  end;
 if Createpipe(hReadPipe, hWritePipe, @SecAttr, 0) then
  begin
   Buffer:= AllocMem(BUFSIZE + 1);
   FillChar(StartupInfo, Sizeof(StartupInfo), #0);
   StartupInfo.cb:= SizeOf(StartupInfo);
   StartupInfo.hStdOutput:= hWritePipe;
   StartupInfo.hStdInput:= hReadPipe;
   StartupInfo.dwFlags:= STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;
   StartupInfo.wShowWindow:= SW_HIDE;
   if CreateProcess(nil, PChar(Comand), @SecAttr, @SecAttr, true, NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then
    begin
     repeat
      WaitReason:= WaitForSingleObject( ProcessInfo.hProcess,100);
      Application.ProcessMessages;
     until(WaitReason <> WAIT_TIMEOUT);
     repeat
      BytesRead := 0;
      ReadFile(hReadPipe, Buffer[0], BUFSIZE, BytesRead, nil);
      Buffer[BytesRead]:= #0;
      //OemToAnsi(Buffer,Buffer);
      ts:=String(Buffer);
      result := result+ts;
     until(BytesRead < BUFSIZE);
    end;
   FreeMem(Buffer);
   CloseHandle(ProcessInfo.hProcess);
   CloseHandle(ProcessInfo.hThread);
   CloseHandle(hReadPipe);
   CloseHandle(hWritePipe);
  end;
END;

функция совместима с дельфями до 2006

далее где юникод там надо бубен,

вот эта же но с бубном. Для Embarcadero XE

// запуск консоли
function RunCMD(comand: String):string;
const BUFSIZE = 2000;
var SecAttr: TSecurityAttributes;
    hReadPipe, hWritePipe: THandle;
    StartupInfo: TStartUpInfo;
    ProcessInfo: TProcessInformation;
    Buffer: PAnsichar;
    WaitReason,BytesRead: DWord;
begin  // start
 with SecAttr do
  begin
   nlength:= SizeOf(TSecurityAttributes);

   binherithandle:= true;
   lpsecuritydescriptor:= nil;
  end;
 if Createpipe(hReadPipe, hWritePipe, @SecAttr, 0) then
  begin
   Buffer:= AllocMem(BUFSIZE + 1);
   FillChar(StartupInfo, Sizeof(StartupInfo), #0);
   StartupInfo.cb:= SizeOf(StartupInfo);
   StartupInfo.hStdOutput:= hWritePipe;
   StartupInfo.hStdInput:= hReadPipe;
   StartupInfo.dwFlags:= STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;
   StartupInfo.wShowWindow:= SW_HIDE;
   comand:=comand+'.exe'; // бубен без него не работает
// смысл бубна в обязательном наличии любых изменений перемменной comand чтобы компилятор видел
   if CreateProcess(nil, PWideChar(comand), @SecAttr, @SecAttr, true, NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then
    begin
    result:='';
     repeat
      WaitReason:= WaitForSingleObject( ProcessInfo.hProcess,100);
      Application.ProcessMessages;
     until(WaitReason <> WAIT_TIMEOUT);
     repeat
      BytesRead := 0;
      ReadFile(hReadPipe, Buffer[0], BUFSIZE, BytesRead, nil);
      Buffer[BytesRead]:= #0;
      //OemToAnsi(Buffer,Buffer);
      result := result + String(Buffer);
     until(BytesRead < BUFSIZE);
    end;
   FreeMem(Buffer);
   CloseHandle(ProcessInfo.hProcess);
   CloseHandle(ProcessInfo.hThread);
   CloseHandle(hReadPipe);
   CloseHandle(hWritePipe);
  end;
end;

и еще в win xp консоль выдает кодировку windows-1251 а Windows 7 выдает в OEM

[Serge_Bliznykov]

и еще в win xp консоль выдает кодировку windows-1251 а Windows 7 выдает в OEM

ой, не буду утверждать 100%, но мне кажется, что Вы заблуждаетесь.
Консоль всегда, ещё со времён Win 3.x и Windows 9x всегда работала в кодировке OEM (866).

p.s. мой комментарий не относится к программному коду - что там и в какой кодировке отдаётся - не знаю...

[Lesha]

не просто действиельно написал прогу которая через команду ipconfig получает данные, так вот в xр там ansi а в 7 oem

можете проверить банальным экспортом команды в текстовый файл

C:\Documents and Settings\Lesha>ipconfig > c:\1.txt

[Serge_Bliznykov]

ну, так это проблема исключительно программы ipconfig! (в Windows XP она выводит действительно в ANSI)

попробуйте, например, команды

dir > dddd.txt

copy sddfxxs sd sd > 222.txt

ping tt > ping2.txt

[Стелс]

а чо такое "БУБЕН" ???

[Tronix]

Сообщение от Стелс

а чо такое "БУБЕН" ???

Музыкальный инструмент.

[Serge_Bliznykov]

а чо такое "БУБЕН" ???

угу. Tronix абсолютно прав.
Просто этот музыкальный инструмент часто используется в шаманских камланиях,
а иногда в программировании без них не обойтись
Пара плясок с бубном вокруг кода и вуаля - всё работает!