CnPack非常实用的Pascal脚本-----------复制当前行

program CopyCurrentLine;

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

var
  Lines: TStringList; 
begin
  Lines := TStringList.Create;
  try
    IdeGetEditorSelectedLines(Lines);
    Lines.AddStrings(Lines);
    IdeSetEditorSelectedLines(Lines);
  finally
    Lines.Free;
  end;
end.