[lestatgi]

Код:

unit Unit1;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellApi, StdCtrls, ExtCtrls;


type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ls:TStringList;
  d:string;
implementation

{$R *.dfm}
 function DosToWin(St: string): string;
var
  Ch: PChar;
begin
  Ch := StrAlloc(Length(St) + 1);
  OemToAnsi(PChar(St), Ch);
  Result := Ch;
  StrDispose(Ch)
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 ShellExecute(Handle, nil, 'cmd.exe', '/c '+ 'net session >c:\1.txt', nil, SW_HIDE);
 sleep(1000);
 ls:=TStringList.Create;
 ls.LoadFromFile('c:\1.txt');
 d:=DosToWin(ls.Text);
 ls.Clear;
 ls.Add(d);
 ls.SaveToFile('c:\1.txt');
 ls.Free;


end;

end.