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 支持通配符删除文件

Delphi简单的字符串加密解密函数

Delphi流类 遍历读取流中的所有数据

Delphi 枚举所有电脑磁盘

Delphi中使用ixmlhttprequest如何用post方式提交带参

Delphi 动态设置屏幕分辨率

Delphi开发桌面图标列表查看程序

Delphi inc () 计数用法

Delphi 测试字符串读取类: tstringreader

Delphi 如何确定windows安装的语言

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

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