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做异型窗体png透明

Delphi 10.3 开发app 在android手机上获取imei

Delphi string与tstringlist

idtcpclient和idtcpclient 主要属性和方法

Delphi 下载并运行的代码

Delphi 两个非常有用的进程函数

Delphi 变量和常量

Delphi获取uri的查询参数

Delphi winapi: getwindowtextlength - 获取窗口标题长度

Delphi idftp 错误：socket error 10054 �c connection reset by peer -连接被重置

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

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