unit1.pas

delphi资源编译器

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  liuDialogs,liuduihuakuang, StdCtrls,liuwindows;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label3: TLabel;
    Edit2: TEdit;
    Button2: TButton;
    GroupBox2: TGroupBox;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   pbname:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text:=  liuduihuakuang.GetOpenfilename(extractfilepath(application.ExeName),'*.*');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
pbname:='';
end;

procedure TForm1.Button3Click(Sender: TObject);

begin
    if length(pbname)=0 then
     pbname:=liuduihuakuang.GetSavefilename(extractfilepath(application.ExeName),'*.rc');
     memo1.Lines.SaveToFile(pbname);
     caption:='资源编译器('+pbname+')';
end;

procedure TForm1.Button2Click(Sender: TObject);
var
lx,nm,fl:string;
begin
case combobox1.ItemIndex of
//BMP图片
0:
lx:='BITMAP';
//光标
1:
lx:='CURSOR';
//图标
2:
lx:='ICON';
//JPG图片
3:
lx:='JPGFILE';
//二进制文件
4:
lx:='EXEFILE';
//文本文件
5:
lx:='TXTFILE';
//声音
6:
lx:='WAVE';
//电影
7:
lx:='AVI';
else
lx:='EXEFILE';
end;//case
fl:=liuwindows.GetShortFileName(edit1.Text);
nm:=edit2.Text;
memo1.Lines.Add(format('%s %s "%s"',[nm,lx,fl]));
if length(pbname)>0 then
begin
   caption:='资源编译器('+pbname+'*)';
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
st,st1:string;
begin
if length(pbname)>0 then
begin
   button3.Click;
   st:=liuwindows.GetShortFileName(pbname);
   st1:=ChangeFileExt(pbname,'.res');
   if fileexists(st1) then
   begin
       deletefile(st1);
   end;
   liuwindows.run(extractfilepath(application.ExeName)+'brcc32.exe',st);
   while not application.Active  do
   begin

   end;
   sleep(1000);
   if fileexists(st1) then
   begin
       liu('编译完成');
   end
   else
   begin
       liu('编译失败，可以资源中有非法内容');
   end;
end
else
begin
    liu('文件没有保存');
end;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  pbname:=liuduihuakuang.GetOpenfilename(extractfilepath(application.ExeName),'*.rc');
  memo1.Lines.LoadFromFile(pbname);
  caption:='资源编译器('+pbname+')';
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
pbname:='';
memo1.Clear;
caption:='资源编译器(未保存)';
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
  caption:='资源编译器('+pbname+'*)';
end;

procedure TForm1.Button5Click(Sender: TObject);
var
st1,st:string;
begin
   st1:=ChangeFileExt(pbname,'.res');
   st:=liuduihuakuang.GetSavefilename(extractfilepath(application.ExeName),'*.res');
  if  copyfile(pchar(st1),pchar(st),False)then
  begin
      liu('成功复制');
  end;
end;

end.