1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  ShellApi;
var x:STring;
begin
Write('C:\');
Readln(x);
ShellExecute(0,'open',PChar(x),nil,nil,0);
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:

program BasicCmd;

{$APPTYPE CONSOLE}

// (C) retnyg @ http://krazz.net/retnyg

uses
  windows,
  SysUtils,
  ShellApi;

type Tcommand = record
        exe : string;
        parms : string;
     end;

var x:STring;
    cmd: Tcommand;

function error:string;
begin
  result := SysErrorMessage(GetLastError())
end;

function input2cmd(aCmd:string):Tcommand;
  var p : integer;
begin
    p := pos(' ',aCmd);
    if p = 0 then begin
      result.exe := aCmd;
      result.parms := '';
    end else begin
      result.exe := ansilowercase(copy(aCmd,1,p-1));
      result.parms := copy(aCmd,p+1,maxint);
    end;
end;

function RunCommand(aDir, aCmd, parms: string): boolean;
var   start: TStartupInfo;
  procInfo: TProcessInformation;
  return: cardinal;

begin
      FillChar(start, SizeOf(start), #0);
      start.cb          := SizeOf(start);
      start.hStdOutput  := GetStdHandle(STD_OUTPUT_HANDLE);
      start.hStdInput   := GetStdHandle(STD_INPUT_HANDLE);
      start.hStdError   := GetStdHandle(STD_ERROR_HANDLE);
      start.dwFlags     := StartF_UseStdHandles or StartF_UseShowWindow;
      start.wShowWindow := SW_NORMAL;
      if CreateProcess(nil, PChar(aCmd + ' ' + parms), nil, nil, True,
                       0, nil, PChar(aDir), start, procInfo) then
      begin
        SetPriorityClass(procInfo.hProcess, Idle_Priority_Class);
        WaitForSingleObject(procInfo.hProcess, Infinite);
        GetExitCodeProcess(procInfo.hProcess, return);
        Result := (return = 0);
        CloseHandle(procInfo.hThread);
        CloseHandle(procInfo.hProcess);
      end;
end;

procedure showdirectory(parms:string);
var sr: tsearchrec;
    mask:string;
begin
    if parms = '' then mask := includetrailingbackslash(GetCurrentDir)+'*.*' else mask := includetrailingbackslash(GetCurrentDir)+parms;
    if findfirst(mask,faAnyfile,sr) = 0 then
    repeat
      writeln(sr.name);
    until findnext(sr) <> 0
    else writeln('no file found');
end;


begin
//  SetCurrentDir('C:\');
  while true do begin
    Write(GetCurrentDir + '> ');
    Readln(x);
    cmd := input2cmd(x);
    if (length(cmd.exe) = 2) and (length(cmd.parms) = 0) then
      (if cmd.exe[2] = ':' then
         (if not SetCurrentDir(cmd.exe) then writeln(error)))
    else
    if cmd.exe = 'cd' then SetCurrentDir(cmd.parms)
    else
    if cmd.exe = 'dir' then showDirectory(cmd.parms)
    else
    if not runcommand(GetCurrentDir,cmd.exe ,cmd.parms ) then
      if not runcommand('',cmd.exe ,cmd.parms ) then
        writeln(error);
  end;
end.