Delphi中巧用命令行参数实现拖拽文件到程序图标上触发功能

D-Nolan

已于 2023-04-09 10:36:15 修改

阅读量371

点赞数

分类专栏： delphi编程技巧文章标签： delphi

于 2022-07-07 13:02:13 首次发布

本文链接：https://blog.csdn.net/gust2013/article/details/125654933

版权

delphi编程技巧专栏收录该内容

9 篇文章 1 订阅

订阅专栏

效果演示：
请添加图片描述
将1.txt的内容与2.txt的内容合并保存到3.txt中
核心代码：

procedure TForm1.FormShow(Sender: TObject);
var
  i: integer;
  ms: TMemoryStream;
  ms2: TMemoryStream;
begin
  showmessage('命令行参数个数为:' + inttostr(paramcount));
  for i := 1 to ParamCount do
  begin
    showmessage('第' + inttostr(i) + '个命令行参数为:' + paramstr(i));
  end;
  showmessage('应用程序名称为:' + paramstr(0));
  //TMemoryStream文件合并
  ms := TMemoryStream.Create;
  ms.LoadFromFile(paramstr(1));
  ms.Position := ms.Size; //移动文件指针
  ms2 := TMemoryStream.Create;
  ms2.LoadFromFile(paramstr(2));
  ms.CopyFrom(ms2, 0);
  ms.SaveToFile(GetCurrentDir + '\3.txt');
  ms.Free;
  ms2.Free;
  Form1.Close;
end;