strparam.dpr

外国人写的各种类型的源代码,有兴趣的朋友看看吧！是学习的好东西哟

program Strparam;

uses
  Windows;

begin
  // show the full string
  MessageBox (0, cmdLine, 'StrParam Command Line', MB_OK);

  // show the first parameter
  if ParamCount > 0 then
    MessageBox (0, PChar (ParamStr (1)), '1st StrParam Parameter', MB_OK)
  else
    MessageBox (0, PChar ('No parameters'), '1st StrParam Parameter', MB_OK);
end.