用命令行获得长文件名

字体大小: 中小 标准 ->行高大小: 标准 中 大 
procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
begin
  s:= GetCommandLine;
  Delete(s, 1, pos('exe"', s) + 4);
  Memo1.Lines.Add(s);
end;

此文章由 http://www.ositren.com 收集整理 ,地址为: http://www.ositren.com/htmls/67926.html