program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

//通过此条件编译指令，分别执行哪个操作系统代码

{$DEFINE MSWINDOWS}

uses

  System.SysUtils,

{$IF DEFINED (LINUX) or DEFINED (MACOS)}

  POSIX.Stdlib,

{$ENDIF}

{$IFDEF MSWINDOWS}

  Windows,

  ShellApi;

{$ENDIF}

{

  运行程序方法

  prog:要运行程序全路径名称

}

procedure RunProg(prog: string);

begin

  // windows条件编译

{$IFDEF MSWINDOWS}

  ShellExecute(, 'open', Pchar(prog), nil, nil, SW_SHOWNORMAL);

{$ENDIF}

  // OSX条件编译

{$IFDEF MACOS}

  _system(PAnsiChar('open ' + AnsiString(prog)));

{$ENDIF}

  // linux条件编译

{$IFDEF LINUX}

  _system(MarshaledAString(UTF8String(prog)));

{$ENDIF}

end;

var

  runExe: string; // 要执行程序变量

begin

  try

    // 提示信息

    writeln('请输入要执行程序全路径名称:');

    // 读取要执行程序全路径名称

    readln(runExe);

    // 运行输入的程序

    RunProg(runExe);

  except

    on E: Exception do

      writeln(E.ClassName, ': ', E.Message);

  end;

end.

program myls;

{$APPTYPE CONSOLE}

{$R *.res}

uses

  System.SysUtils,

  Posix.Base,

  Posix.Fcntl;

type

  TStreamHandle = pointer;

///  <summary>

///    Man Page: http://man7.org/linux/man-pages/man3/popen.3.html

///  </summary>

function popen(const command: MarshaledAString; const _type: MarshaledAString): TStreamHandle; cdecl; external libc name _PU + 'popen';

///  <summary>

///    Man Page: http://man7.org/linux/man-pages/man3/pclose.3p.html

///  </summary>

function pclose(filehandle: TStreamHandle): int32; cdecl; external libc name _PU + 'pclose';

///  <summary>

///    Man Page: http://man7.org/linux/man-pages/man3/fgets.3p.html

///  </summary>

function fgets(buffer: pointer; size: int32; Stream: TStreamHAndle): pointer; cdecl; external libc name _PU + 'fgets';

///  <summary>

///    Utility function to return a buffer of ASCII-Z data as a string.

///  </summary>

function BufferToString( Buffer: pointer; MaxSize: uint32 ): string;

var

  cursor: ^uint8;

  EndOfBuffer: nativeuint;

begin

  Result := '';

  if not assigned(Buffer) then begin

    exit;

  end;

  cursor := Buffer;

  EndOfBuffer := NativeUint(cursor) + MaxSize;

  while (NativeUint(cursor)<EndOfBuffer) and (cursor^<>) do begin

    Result := Result + chr(cursor^);

    cursor := pointer( succ(NativeUInt(cursor)) );

  end;

end;

var

  Handle: TStreamHandle;

  Data: array[..] of uint8;

begin

  try

    Handle := popen('/bin/ls -lart','r');

    try

      while fgets(@data[],Sizeof(Data),Handle)<>nil do begin

        Write(BufferToString(@Data[],sizeof(Data)));

      end;

    finally

      pclose(Handle);

    end;

  except

    on E: Exception do

      Writeln(E.ClassName, ': ', E.Message);

  end;

end.