我們經常在命令行提示符下查看一個可執行文件的參數幫助， 如輸入： C:\>tree/? 以图形显示驱动器或路径的文件夹结构。 TREE [drive:][path] [/F] [/A] /F 显示每个文件夹中文件的名称。 /A 使用 ASCII 字符，而不使用扩展字符。 C:\>net/help 此命令的語法是: NET [ ACCOUNTS | COMPUTER | CONFIG | CONTINUE | FILE | GROUP | HELP | HELPMSG | LOCALGROUP | NAME | PAUSE | PRINT | SEND | SESSION | SHARE | START | STATISTICS | STOP | TIME | USE | USER | VIEW ] C:\> 又如圖示： 請問EXE文件的這种Help文字如何實現。 ---------------------------- 於Delphi K.Top之上 博采眾家之長, 奉獻綿薄之力 ---------------------------

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

Console Application writeln 解析 GetCommandLine 即 ParamStr 搜索一下 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

豬寶寶之前寫的一段小程式給您參考

if (PARAMSTR(1)='') or (UpperCase(PARAMSTR(1)) ='/HELP') then
begin
//秀出求助訊息
  WRITELN('error!! c:>sleep ');
  writeln('n is sleep second');
end
else
begin
//程式本體
 sleep(strtoint(PARAMSTR(1))*1000);
end;

發表人 - pigbaby 於 2005/09/09 09:01:54

多謝上面兩位，Console Application我知道做了，如果換成GUI Application呢？能不能實現？ ---------------------------- 於Delphi K.Top之上 博采眾家之長, 奉獻綿薄之力 ---------------------------

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

兩用的 DPR File 參考看看:

program DBFile;    uses
  Forms,
  Windows,
  SysUtils,
  DBFileU in 'DBFileU.pas' {FmDBFile};    {$R *.res}
procedure DoneApplication;
begin
  with Application do
  begin
    if Handle <> 0 then ShowOwnedPopups(Handle, False);
    ShowHint := False;
    Destroying;
    DestroyComponents;
  end;
end;    begin
  Application.Initialize;
  Application.CreateForm(TFmDBFile, FmDBFile);
  try
  if paramstr(1)<>'' then begin
     AddExitProc(DoneApplication);
     FmDBFile.LabeledEdit1.Text := paramstr(3);
     FmDBFile.LabeledEdit2.Text := paramstr(4);
     FmDBFile.LabeledEdit3.Text := paramstr(5);
     FmDBFile.Button1Click(FmDBFile.Button1);
     if paramstr(2)='U' then FmDBFile.DoUpLoad(paramstr(1))
     else if paramstr(2)='D' then FmDBFile.DoDownLoad(paramstr(1))
     else if paramstr(2)='O' then FmDBFile.DoOffLoad(paramstr(1));
     FmDBFile.Free;
     Application.Terminate;
  end
  else
    Application.Run;
  except
     Application.Terminate;
     raise;
  end;
end.