Ipconfig no MSDOS

[Antonio Maucyr Pasqualli F]

Ola amigos,

preciso fazer uma especie de ipconfig, mas com o delphi, tipo ao clicar em um botão ele mostre em um memo as informações que obteria em atraves do ipconfig no MSDOS.

alguém sabe como faço para opter esse resultado?

Obrigado!

[Jhonas]

preciso fazer uma especie de ipconfig, mas com o delphi, tipo ao clicar em um botão ele mostre em um memo as informações que obteria em atraves do ipconfig no MSDOS.

alguém sabe como faço para opter esse resultado?

Isso é bem simples

procedure TForm1.Button1Click(Sender: TObject);
var  Caminho: TextFile;
     Line: string;
begin
   Memo1.Clear;
   if FileExists('c:\IPCONFIG.txt') then DeleteFile('c:\IPCONFIG.txt');
   WinExec(pchar('cmd.exe /c IPCONFIG /all > c:\IPCONFIG.txt'), 0);

   sleep(3000);
   AssignFile(Caminho, 'C:\IPCONFIG.txt');
   Reset(Caminho);
   while not EOF(Caminho) do
      begin
        ReadLn(Caminho, Line);
        Memo1.Lines.Append(Line);
      end;
   CloseFile(Caminho);
end;

OBS: Alterei o título do seu tópico para ficar mais coerente com a sua pergunta

abraço