{*******************************************************}
{                                                       }
{       Pascal Script Source File                       }
{       Run by RemObjects Pascal Script in CnWizards    }
{                                                       }
{       Generated by CnPack IDE Wizards                 }
{                                                       }
{*******************************************************}

program UPXEXE;

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ToolsAPI, CnWizUtils, CnWizIdeUtils;

function ShellExecute(hWnd: HWND; Operation, FileName, Parameters,
  Directory: PChar; ShowCmd: Integer): HINST; external 'ShellExecuteA@shell32.dll stdcall';

var
  CurPName,CurPath: Variant;
  tmps: string;
  Name1: string;
  IsFind: Boolean;
begin
   Name1 := CnOtaGetCurrentProjectFileName;
   CurPath := Name1;
   if IsBdsProject(Name1) or IsDpr(Name1) then //是PE工程
   begin
     CnOtaGetActiveProjectOption('OutputDir',CurPName); //先获得输出目录
     Name1 := ExtractFileName(Name1);
     if Trim(CurPName) = '' then
     begin
       CurPName := CnOtaGetCurrentProjectFileNameEx+'.exe';
       IsFind := FileExists(CurPName);
       if not IsFind then
         CurPName := CnOtaGetCurrentProjectFileNameEx+'.dll';
       IsFind := FileExists(CurPName);
       Name1 := CurPName;
     end
     else
     begin

       Name1 := Copy(Name1,1,Pos('.',Name1)-1);
       tmps := CurPName;
       if tmps[Length(tmps)] <> '\' then
         tmps := tmps + '\';
       if Pos(':',tmps) <> 0 then
       begin
         Name1 := tmps + Name1 + '.exe';
         IsFind := FileExists(Name1);
         if not IsFind then
           Name1 := tmps + Name1 + '.dll';
       end
       else
       begin
         CurPath := ExtractFilePath(CurPath);
         CurPName := CurPath + tmps +  Name1 + '.exe';
         IsFind := FileExists(CurPName);
         if not IsFind then
           CurPName := CurPath + tmps + Name1 + '.dll';
         Name1 := CurPName;
       end;
       IsFind := FileExists(Name1);
     end;
     if IsFind then
     begin
       Name1 := '"' + Name1 + '"';
       if MessageBox(Application.handle,'需要先在压缩吗？', '提示', MB_YESNO + MB_ICONQUESTION) = 6 then
       begin
         ShellExecute(Application.Handle,'open','upx.exe',PChar(Name1),'',1);
         ShowMessage('压缩成功');
       end;
     end;
   end;
end.

{*******************************************************}
{                                                       }
{       Pascal Script Source File                       }
{       Run by RemObjects Pascal Script in CnWizards    }
{                                                       }
{       Generated by CnPack IDE Wizards                 }
{                                                       }
{*******************************************************}

program Trans;

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

var
  DesignContainer: TComponent;

begin
  DesignContainer := IdeGetDesignedForm(nil);
  if DesignContainer = nil then
  begin
    ErrorDlg('NO Designer Found.');
    Exit;
  end;

  // 以下需要修改为相应的 语言文件目录、语言文件名、要切换的目标语种
  TranslateFormFromLangFile(TForm(DesignContainer), 'D:\cnpack\cnwizards\Bin\Lang',
    'CnWizards.txt', 1033);
  CnOtaNotifyFormDesignerModified(nil);
end.

{*******************************************************}
{                                                       }
{       Pascal Script Source File                       }
{       Run by RemObjects Pascal Script in CnWizards    }
{                                                       }
{       Generated by CnPack IDE Wizards                 }
{                                                       }
{*******************************************************}

program FieldToProperty;

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

var
  Text: string;
  Lines: TStringList;
  I: Integer;
  Name, AType: string;
begin
  Lines := TStringList.Create;
  try
    IdeGetEditorSelectedLines(Lines);
    for I := 0 to Lines.Count - 1 do
    begin
      Text := Lines[I];
      if (Pos(':', Text) > 0) and (Pos('//', Text) = 0) then
      begin
        Name := Trim(Copy(Text, 1, Pos(':', Text) - 1));
        AType := Trim(Copy(Text, Pos(':', Text) + 1, MaxInt));
        AType := StringReplace(AType, ';', '', [rfReplaceAll]);
        Text := Copy(Text, 1, Pos(Name, Text) - 1) + 'property ' + Name + ': ' +
          AType + ' read F' + Name + ' write F' + Name + ';';
        Lines[I] := Text;
      end;
    end;
    IdeSetEditorSelectedLines(Lines);
  finally
    Lines.Free;
  end;
end.

{*******************************************************}
{                                                       }
{       Pascal Script Source File                       }
{       Run by RemObjects Pascal Script in CnWizards    }
{                                                       }
{       Generated by CnPack IDE Wizards                 }
{                                                       }
{*******************************************************}

program RenameScript;

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

var
  CurPName,CurPath: Variant;
  tmps: string;
  Name1: string;
  IsFind: Boolean;
begin
   Name1 := CnOtaGetCurrentProjectFileName;
   CurPath := Name1;
   if IsBdsProject(Name1) or IsDpr(Name1) then //是PE工程
   begin
     CnOtaGetActiveProjectOption('OutputDir',CurPName); //先获得输出目录
     Name1 := ExtractFileName(Name1);
     if Trim(CurPName) = '' then
     begin
       CurPName := CnOtaGetCurrentProjectFileNameEx+'.exe';
       IsFind := FileExists(CurPName);
       if not IsFind then
         CurPName := CnOtaGetCurrentProjectFileNameEx+'.dll';
       IsFind := FileExists(CurPName);
       Name1 := CurPName;
     end
     else
     begin

       Name1 := Copy(Name1,1,Pos('.',Name1)-1);
       tmps := CurPName;
       if tmps[Length(tmps)] <> '\' then
         tmps := tmps + '\';
       if Pos(':',tmps) <> 0 then
       begin
         Name1 := tmps + Name1 + '.exe';
         IsFind := FileExists(Name1);
         if not IsFind then
           Name1 := tmps + Name1 + '.dll';
       end
       else
       begin
         CurPath := ExtractFilePath(CurPath);
         CurPName := CurPath + tmps +  Name1 + '.exe';
         IsFind := FileExists(CurPName);
         if not IsFind then
           CurPName := CurPath + tmps + Name1 + '.dll';
         Name1 := CurPName;
       end;
       IsFind := FileExists(Name1);
     end;
     if IsFind then
     begin
       if MessageBox(Application.handle,'需要改名吗？', '提示', MB_YESNO + MB_ICONQUESTION) = 6 then
       begin
         tmps := ExtractFileName(Name1);
         tmps := InputBox('输入','请输入新名字',tmps);
         tmps := ExtractFilePath(Name1) + tmps;
         if (tmps <> '') and (CompareText(tmps,Name1) <> 0) then
         begin
           RenameFile(Name1,tmps);
           ShowMessage('改名成功');
         end;
       end;
     end;
   end;
end.

原帖由 不得闲 于 2010-5-4 14:11 发表
某日，一个好友问我有没有什么办法，在某工程编译之后自动将工程生成的exe文件改成别的名字，我想也不想的就说了cnpack脚本，嘿嘿，这个东西其实还真是蛮好用的哈！然后随手在我上次的那个压缩脚本上修改了一下

{************** ...

原帖由 zjy 于 2010-5-4 20:30 发表

如果只是修改编译出来的文件扩展名，倒是有个简单的方法：
打开 Project Options 对话框，在 Application 页下方，有一个 Target file extention 编辑框，可以直接修改输出文件的扩展名。
当然，如果是要改文件名的话，就只有用脚 ...

{*******************************************************}
{                                                       }
{       Pascal Script Source File                       }
{       Run by RemObjects Pascal Script in CnWizards    }
{                                                       }
{       Generated by CnPack IDE Wizards                 }
{                                                       }
{*******************************************************}

program Test;

// 当脚本在 uses 列表中指定了 IdeInstComp 时，脚本可以使用在 IDE 中安装的所有组件。
// 对于没有在 PSDecl 目录下的声明文件中列出的组件，只能访问其 published 的属性。

// 其它没有特别声明的单元如 Windows, Classes，不需要 uses 即可使用其声明的内容，
// 不过如果 uses 他们，在 IDE 代码编辑器中编辑脚本时，可以使用 IDE 的代码自动完成。
// 不将 IdeInstComp 直接导入，是因为当 IDE 安装了很多包时，导入的速度可能较慢

uses
  Windows, SysUtils, IdeInstComp; // uses IdeInstComp is needed.

var
  DB: TDataBase;    // TDataBase is not imported by script engine expressly.
  Timer: TCnTimer;  // TCnTimer is a 3rd component (in CnPack) installed in IDE.

begin
  DB := TDataBase.Create(nil);
  try
    DB.AliasName := 'Test';  // You can access published properties only!!!
  finally
    DB.Free;
  end;

  Timer := TCnTimer.Create(nil);
  try
    Timer.Enabled := True;
  finally
    Timer.Free;
  end;
end.

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

var Lineas: TStringList;

begin
  Lineas:= TStringList.Create;
  try
    Lineas.Add('const FechaCompilacion = ''' + FormatDatetime('dd/mm/yyyy', Now) + ''';');
    Lineas.Add('const HoraCompilacion = ''' + FormatDatetime('hh:nn', Now) + ''';');
    Lineas.SaveToFile('C:\Delphi\Utils\FechaCompilacion.inc');
  finally
    Lineas.Free;
  end;
end.

unit Unit1;

type TForm1 = class(TForm)

[...]

end

implementation

{$R *.res}

{$I 'C:\Delphi\Utils\FechaCompilacion.inc'}


procedure TForm1.OnCreate(Sender: TObject);
begin
  ShowMessage('Compilado el ' + FechaCompilacion + ' a las ' + HoraCompilacion);
end;

program DeletePlus;
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Clipbrd;
var
  Lines: TStringList;
  Clipboard: TClipboard;
begin
  Lines := TStringList.Create;
  Clipboard := TClipboard.Create;
  try
    Lines.Clear;
    IdeSetEditorSelectedLines(Lines);
  finally
    Lines.Free;
    Clipboard.Free;
  end;
end.

program CopyPlus;
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Clipbrd;
var
  Lines: TStringList;
  Clipboard: TClipboard;
  i: Integer;
begin
  Lines := TStringList.Create;
  Clipboard := TClipboard.Create;
  try
    if IdeGetEditorSelectedLines(Lines) then
    begin
      Clipboard.Clear;
      Clipboard.AsText := Lines.Text;
    end;
  finally
    Lines.Free;
    Clipboard.Free;
  end;
end.

program CutPlus;
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Clipbrd;
var
  Lines: TStringList;
  Clipboard: TClipboard;
  i: Integer;
begin
  Lines := TStringList.Create;
  Clipboard := TClipboard.Create;
  try
    if IdeGetEditorSelectedLines(Lines) then
    begin
      Clipboard.Clear;
      Clipboard.AsText := Lines.Text;
      Lines.Clear;
      IdeSetEditorSelectedLines(Lines);
    end;
  finally
    Lines.Free;
    Clipboard.Free;
  end;
end.

program PastePlus;
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Clipbrd;
var
  Lines: TStringList;
  Clipboard: TClipboard;
begin
  Lines := TStringList.Create;
  Clipboard := TClipboard.Create;
  try
    if Clipboard.HasFormat(1)   then
    begin
      if IdeGetEditorSelectedLines(Lines) then
      begin
        Lines.Text := Clipboard.AsText + Lines.Text;
        IdeSetEditorSelectedLines(Lines);
      end;
    end;
  finally
    Lines.Free;
    Clipboard.Free;
  end;
end.