Console Demo

//
//                          //
//       2010年6月26日      //
//            Console_Demo  //
//             haiou327     //
//

program console;
{$APPTYPE CONSOLE}
//{$R *.res}
uses
//shellapi;
  SysUtils, windows;
var
  s: string;
  i: integer;
  HOutPut: Thandle;

begin
         { TODO -oUser -cConsole Main : Insert code here }
  if ParamCount = 0 then
    begin
      SetConsoleTitle('Control_Demo    2006.6.26');
      hOutput := GetStdHandle(STD_OUTPUT_HANDLE);
      SetConsoleTextAttribute(hOutput, 15);
      writeln('使用方法：<请输入要创建的目录>');
      //SetConsoleTextAttribute(hOutput, 15);
      readln(s);
      //ShellExecute(0,'open','cmd', pchar('/c md '+s), nil, 0);
      if CreateDir(s) = true then
        begin
          writeln('------------------------------');
          writeln('Directory creation successful!');
          writeln('------------------------------');
          readln;
        end
      else
        begin
          writeln('---------------------------');
          writeln('Directory creation failure!');
          writeln('---------------------------');
          readln;
        end
    end
  else
    begin
      for i := 1 to ParamCount do
        begin
          Createdir(Paramstr(i));
          //readln;
        end;
      writeln('------------------------------');
      writeln('Directory creation successful!');
      writeln('------------------------------');
    end
end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 lose