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 clipboard 截图后将图片数据复制到剪贴板

Delphi文件无法拖拽功能失效

Delphi 安卓图像压缩bitmapcompress

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

Delphi cxgrid:动态设计统计功能

Delphi: ttreeview 中禁止双击事件展开或关闭节点

Delphi 获取系统内存状态

Delphi tmsweb core webhttprequest1提交json数据

Delphi webbrowser控件属性

Delphi驱动方式winio模拟按键

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

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