delphi 拖动文件到exe 打开 获取getcommandline命令行

本文整理自网络，侵删。

 
delphi 拖动文件到exe 打开 获取getcommandline命令行

var
str:string;
path:string;
fpath:string;
begin
 path:= '"'+Application.ExeName+'"'+' ' ;
 edit1.Text:= path;
 str:= getcommandline ;
 fpath:=  StringReplace ( str, path, '', []) ;
 fpath:=  StringReplace ( fpath, '"', '',  [rfReplaceAll]) ;
 Memo1.Text:=str;
 Memo2.Text:=fpath;

或者

  if ParamCount >= 1 then
  begin
  Memo2.Text:= ParamStr(1)
  end;

本文链接：https://blog.csdn.net/ozhy111/article/details/82386053
 

相关阅读 >>

Delphi excel数据导入数据库表

Delphi 以系统权限运行程序的代码

Delphi 判断网站文件是否存在

Delphi 10进制数与33进制数的转换

Delphi判断文件大小

Delphi xp下的进程静音技术

Delphi侦测条码枪方式

Delphi winapi: settimer、killtimer - 创建与移除高性能定时器

Delphi drawing text 绘制文本

Delphi 取得文件版本

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 拖动文件到exe 打开 获取getcommandline命令行