播放*.wav var h: THandle; p: pointer; begin h := FindResource(hInstance, le_son, 'WAV'); h := LoadResource(hInstance, h); p := LockResource(h); sndPlaySound(p, SND_MEMORY or SND_SYNC); UnLockResource(h); FreeResource(h); end;
图片 var Bmp: TBitmap; begin Bmp := TBitmap.Create; Bmp.Handle := LoadBitmap(HInstance,'vache'); Refresh; Canvas.Draw(width-bmp.width-30, 60, Bmp); Bmp.Free; end;
第一个中le_son为一个存在于资源中的文件名（xxx.wav）字符串: Var Ch : array[0..255] of char; begin label1.caption := ''; if LoadString(hInstance,1,@Ch,sizeof(Ch)) <> 0 then Label1.Caption := StrPas(Ch); end;
當前位置: 主頁>>Windows API>>外部資源化 上一頁 用過地球村點點通翻譯軟件嗎?它能在不同的語系下正常顯示進行操作 ........ 想不想在你的程序中實現? LoadLibraryEx Public Declare Function LoadLibraryEx Lib "kernel32" Alias "LoadLibraryExA" (ByVal lpLibFileName As String, ByVal hFile As Long, ByVal dwFlags As Long) As Long
LoadString Public Declare Function LoadString Lib "user32" Alias "LoadStringA" (ByVal hInstance As Long, ByVal wID As Long, ByVal lpBuffer As String, ByVal nBufferMax As Long) As Long
LoadIcon Public Declare Function LoadIcon Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As String) As Long
DrawIcon Public Declare Function DrawIcon Lib "user32" Alias "DrawIcon" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
FreeLibrary Public Declare Function FreeLibrary Lib "kernel32" Alias "FreeLibrary" (ByVal hLibModule As Long) As Long
GetSystemDefaultLCID Public Declare Function GetSystemDefaultLCID Lib "kernel32" Alias "GetSystemDefaultLCID" () As Long
1.創建外部資源文件(*.DLL),注意要在不同的語系下分別創建編譯. a.打開VC++編輯器,文件>>新建>>Static Dynamic Link Library>>你的文件名>>完成 b.打開資源編輯器>>新增字符串>>在字符串中增加對應的 ID 和 Value. c.執行編譯成 DLL 文件,以便在 VB 中調用. d.注意:在不同語系下編輯字符串時,相同的ID值要相對應的相同的字符串. 2.分別創建在繁體中文,簡體中文及英文下的DLL文件.如: big5.dll , gb.dll , en.dll 3.判斷當有所處操作系統的語系環境,裝載不同的動態鏈接庫. 建立模塊文件: Public hResDll As Long '定義資源句柄 Sub Main() Dim LocalID As Long LocalID=GetSystemDefaultLCID() Select Case LocalID Case &H404: hResDll=LoadLibrary(App.Path &"\big5.dll") '繁體中文 Case &H804: hResDll=LoadLibrary(App.Path &"\gb.dll") '簡體中文 Case &H409: hResDll=LoadLibrary(App.Path &"\en.dll" ) '英文 Case Else End Select ' Source Code.......... 加入你的代碼 End Sub '查詢一個字符串資源: Public Function GetDllString ( ResID As Long ) As String Dim ReturnCode As Long , ReturnStr As String * 255 ReturnCode=LoadString(hResDll,ResID,ReturnStr,255) GetDllString=Mid(ReturnStr,1,InStr(1,ReturnStr,Chr(0)) -1) End Function 4.以下代碼在Form_load中執行.控件顯示對應的字符串 LabTitle.Caption=GetDllString(1001) '1001為在Dll文件中對應的ID值編號 5.釋放資源 FreeLibrary (hResDll)
var
h: THandle;
p: pointer;
begin
h := FindResource(hInstance,
le_son,
'WAV');
h := LoadResource(hInstance, h);
p := LockResource(h);
sndPlaySound(p,
SND_MEMORY or SND_SYNC);
UnLockResource(h);
FreeResource(h);
end;
var
Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
Bmp.Handle := LoadBitmap(HInstance,'vache');
Refresh;
Canvas.Draw(width-bmp.width-30, 60, Bmp);
Bmp.Free;
end;
Var Ch : array[0..255] of char;
begin
label1.caption := '';
if LoadString(hInstance,1,@Ch,sizeof(Ch)) <> 0 then
Label1.Caption := StrPas(Ch);
end;
声音：1.mid
图象：1.jpg
文本：1.txt
想通过opendiag()打开该文件，并在窗体上显示图象、同时播放音乐并在LABEL上显示文本，
请问具体怎样打开调用？？
不胜感谢！！
有没有详细些的说明！各位费心了！！
假如已知资源文件为：c:\aa\bb.res,其中已经编译包含的文件为：
声音：1.mid
图象：1.jpg
文本：1.txt
想通过opendiag()打开该文件，并在窗体上显示图象、同时播放音乐并在LABEL上显示文本，
请问具体怎样打开调用？？
不胜感谢！！
liang_z(千山一刀之忍者神龟) 能不能针对此实例讲一下？谢谢！！！
WriteResFile???
LoadRes?????之类的，你自己Search一下吧。我这里没有MSDN，不然，就帮你Post出来了。
然后用LoadLibrary将DLL Load进来，再用LoadString...等进行读资源。
这儿有个例子，就是这样做的。
如果“地球村點點通翻譯軟件”也是这样做的，那么你就也只能这么做了！
當前位置:
主頁>>Windows API>>外部資源化 上一頁
用過地球村點點通翻譯軟件嗎?它能在不同的語系下正常顯示進行操作 ........ 想不想在你的程序中實現? LoadLibraryEx Public Declare Function LoadLibraryEx Lib "kernel32" Alias "LoadLibraryExA" (ByVal lpLibFileName As String, ByVal hFile As Long, ByVal dwFlags As Long) As Long
LoadString Public Declare Function LoadString Lib "user32" Alias "LoadStringA" (ByVal hInstance As Long, ByVal wID As Long, ByVal lpBuffer As String, ByVal nBufferMax As Long) As Long
LoadIcon Public Declare Function LoadIcon Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As String) As Long
DrawIcon Public Declare Function DrawIcon Lib "user32" Alias "DrawIcon" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
FreeLibrary
Public Declare Function FreeLibrary Lib "kernel32" Alias "FreeLibrary" (ByVal hLibModule As Long) As Long
GetSystemDefaultLCID Public Declare Function GetSystemDefaultLCID Lib "kernel32" Alias "GetSystemDefaultLCID" () As Long
1.創建外部資源文件(*.DLL),注意要在不同的語系下分別創建編譯. a.打開VC++編輯器,文件>>新建>>Static Dynamic Link Library>>你的文件名>>完成 b.打開資源編輯器>>新增字符串>>在字符串中增加對應的 ID 和 Value. c.執行編譯成 DLL 文件,以便在 VB 中調用. d.注意:在不同語系下編輯字符串時,相同的ID值要相對應的相同的字符串. 2.分別創建在繁體中文,簡體中文及英文下的DLL文件.如: big5.dll , gb.dll , en.dll 3.判斷當有所處操作系統的語系環境,裝載不同的動態鏈接庫. 建立模塊文件: Public hResDll As Long '定義資源句柄 Sub Main() Dim LocalID As Long LocalID=GetSystemDefaultLCID() Select Case LocalID Case &H404: hResDll=LoadLibrary(App.Path &"\big5.dll") '繁體中文 Case &H804: hResDll=LoadLibrary(App.Path &"\gb.dll") '簡體中文 Case &H409: hResDll=LoadLibrary(App.Path &"\en.dll" ) '英文 Case Else End Select ' Source Code.......... 加入你的代碼 End Sub '查詢一個字符串資源: Public Function GetDllString ( ResID As Long ) As String Dim ReturnCode As Long , ReturnStr As String * 255 ReturnCode=LoadString(hResDll,ResID,ReturnStr,255) GetDllString=Mid(ReturnStr,1,InStr(1,ReturnStr,Chr(0)) -1) End Function 4.以下代碼在Form_load中執行.控件顯示對應的字符串 LabTitle.Caption=GetDllString(1001) '1001為在Dll文件中對應的ID值編號 5.釋放資源 FreeLibrary (hResDll)
拜托，看看别人的回复！你要编译到你的程序中去，请载你的源代码中添加{$R 指令}即可。
如果你希望你的程序运行的时候，能够读取.RES格式的文件，你看看我的回复！
自己再UPUP！
声音：1.mid
图象：1.jpg
文本：1.txt
想通过opendiag()打开该文件，并在窗体上显示图象、同时播放音乐并在LABEL上显示文本，
请问具体怎样打开调用？？能不能针对此实例讲一下？不胜感谢！！！！！
谈Delphi编程中资源文件的应用
陈经韬
(一)初级应用篇:
资源文件一般为扩展名为res的文件.在VC中资源文件用得非常普遍,但Delphi在其联机帮助中对资源文件没作什么介绍,其实利用其自带的资源编译工具BRCC32.EXE(一般位于\Delphi\BIN目录下）,我们完全可以做出跟VC一样效果的文件来。
资源文件最大的好处是能将一些在必要时才调用的文件跟可执行文件一起编译,生成一个文件.这样做最大的好处就是使外部文件免遭破坏.例如在一条程序中你要临时调用一幅图片,一般作法是把图片放在某一路径下（通常是主程序所在路径）,但如果用户路径误删你的图片文件,则可能使程序找不到相应文件而出错崩溃.另外,如果你想自己的程序界面美观,想用一些自定义光标,也要用到资源文件。
资源文件的使用步骤为：
1.编写rc脚本文本
用记事本或其它文本编辑器编写一个扩展名为rc的文件。例如：mycur cursor move.cur //加入光标
mypic Bitmap Water.BMP //加入位图
mywav WAVE happy.wav //加入声音
myAVI AVI EPOEN.AVI //加入视频
myIco ICON CJT.ICO //加入图标 格式分别为在资源文件中的名称->类型->实际文件名称，例如上面第一行定义一个名为mycur的光标，实际名称为加入光标move.cur.
2.将rc文件编译成res资源文件
将脚本文件和实际文件拷到Brcc32.EXE所在目录，执行DOS命令。格式为：Brcc32 脚本文件(回车)，例如有一名为myfirst.rc的脚本文件，则执行 Brcc32 myfirst.rc(回车)即可。如果你是懒人，也可新建一批处理文件，内容只有一行：Brcc32 mufist.rc.(因为Delphi安装后一般会在自动批处理文件中指明搜索路径的。)如果编译成功，则会生成一个结尾为res的文件，这个文件就是我们需要的资源文件。
3.在Delphi单元中加入资源文件
将生成的res资源文件拷贝到你所编程序的路径下，在单元文件{$R *DFM}后加上一句{$R mufirst.res}，则将res文件加入去，编译后资 源文件即已包含在可执行文件中了。若你有多个资源文件，也按上法依次加入。
4.在Delphi程序中调用资源文件
资源文件在Delphi中的关键字为hinstance.下面给出具体用法.
<1>光标的调用
首先在程序中定义一个值大于0的常量，因为Delphi本身用0-负16来索引默认的光标，所以我们制定的光标应从表面上1开始索引。然后在窗口的Oncreat事件中添加以下代码：
screen.cursor[35]:=Loadcursor (hinstance,'mycur');
其中35为大于1的常量，mycur为光标在资源文件中的名字。如果希望在其他控件上使用定制光标，例如Panel控件，只需在程序的适当处加入以下代码：
Panel1.cursor:=35;
<2>位图的调用
新建一项工程，添加一Timage控件，在需要显示的地方写以下代码：
Var mymap:Hbitmap;
begin
mymap:=LoadBitmap(hinstance,'mypic');
Image1.picture.Bitmap.Handle:=mymap；
end;
其中"mypic"为位图资源文件中的名称。
〈3〉AVI文件的调用
新建一工程，添加一Animate控件，在需要的地方加入：
animater1.resname:='myAVI';
animater1.Active:=true;
其中myAVI为视频文件在资源文件中的名称。
〈4〉调用WAV文件
在uses中加入mmsystm单元，以便在程序中播放WAV文件。播放时Playsound(pchar('mywav'),hinstance,sndsync or snd_resource);其中mywav为声音文件在资源中的名称。
〈5〉加入光标
加入光标比较容易，只要将res文件加入单元文件中即可。但需注意,名称最好取"W"."WW"等，使第一个字母尽量靠后，以免与主程序的图标顺序颠倒。这样一来，别人在使用你的程序时如果想选择其它图标就有很多选择了。
补充：
1.资源类型除上述类型外，还可以字体文件，字符串文件等。
2.资源文件不但可以在标准图形界面下使用还可在控制台下使用。
下面我们来试验一下：
新建一工程，将唯一的一个Form删除，然后修改工程文件。增加一句{$Apptype console},在uses子句中加入mmsystem,并将其它引用单元删掉。将Begin和end之间语句删掉。至此，我们就可和Turbo PASCAL下编程序一样，且还可以调用windows的API和资源。将资源文件----{$R myfist.res}加入。在Begin和end之间写下：
writeln('演示程序，按任意键开始！');
readln;
playsound(pchar('mywav'),hinstance,snd_sync or snd_resource);
writeln('演示结束！');
运行程序，将弹出一个标准DOS窗口，按任意键播放声音文件。是不是很COOL呢!我曾下载过一个播放器，在其安装目录下我发现有一"DOS程序",用鼠标双击它便弹出一个DOS窗口，显示DOS时代特有的画图，并有背景音乐！可能就是用这个方法做的。
3.Delphi本身自带了一个叫Image Editor的工具，同样可以编辑资源文本，但和本文的方法比较，可得出下表：**************************************
Image Editor Brcc32BMP 只支持16位色 任意色光标 黑白两色 任意色ICO 只支持16位色 任意色AVI 不支持 支持WAV 不支持 支持字体
字符串 不支持 支持
其他
**************************************** 上面说的是直接在程序本身的调用。其实资源文件还有其它用法。比如说在你的程序携带其它文件，要用的时候释放出来。
例如: myexe exefile 'ha1.exe'//脚本文件
下面是自定义释放函数ExtractRes，本例中使用如下:
ExtractRes('exefile','myexe','c:\new.exe');
就把ha1.exe以new.exe为名字保存到C盘根目录下了. function TForm1.ExtractRes(ResType, ResName, ResNewName: string): boolean;
var
Res: TResourceStream;
begin
try
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
try
Res.SavetoFile(ResNewName);
Result := true;
finally
Res.Free;
end;
except
Result := false;
end;
----------------------------------------------------------------------
(二)中级应用篇:
上面我们已经知道如何把一副BMP图像从资源文件里面读出来,但是BMP文件太大了,JPG文件应用的相对较多.那么如何把JPG图像读出来呢?用资源文件加流方式即可。具体方法如下:
(1)MyJpg JPEG My.JPG
(2)Var
Stream:TStream;
MyJpg:TJpegImage;
Begin
Stream：＝TResourceStream.Cceat(HINSTANCE,'MyJpg','JPEG');
Try
MyJpg:=TJpegImage.Create;
Try
MyJpg.LoadfromStream(Stream);
Image1.Picture.Assignc(MyJpg);
Finally
MyJpg.Free;
end;
Finally
Stream.Free;
end;
end;
读取其它图片文件也是一样的.比如说gif动画文件，当然前提是你有一个gif.pas，这个单元很多站点都有的，可以自己去找找。实际应用中我还发现用上面的代码可以直接显示资源文件中的ICON和BMP.
说到图形处理,实际上还可以用Delphi创建、调用纯图标资源的DLL.比如说你可以看看超级解霸目录下的Dll,很多就是纯图标资源而已。具体方法如下:
(1):创建一个Hicon.RES文件,这里不再重复.
(2):新建一文本文件Icon.dpr,内容如下:
library Icon;
{$R Icon.RES}
begin
end.
用Delphi打开编译即可得到Icon.dll.
(3):实际调用方法如下:
......
Private
Hinst:THANDLE;
......
Var Hicon:THANDLE;
begin
Hinst:=Loadlibrary('Icon.dll');
If Hinst=0 Then Exit；
Hicon:=Loadicon(Hinst,Pchar(Edit1.Text));
If Hicon<>0 Then Image1.Picture.Icon.Handle:=Hicon;
FreeLibrary(Hinst);
end;
如果你的程序想在国际上供使用不同语言的人使用的话,用Dll来存放字符资源将是一个好方法.因为Dll不象ini文件那样可以被人随便修改,特别是有时侯如果想保存一些版权信息的话用Dll就再好不过了。比如说你准备开发一个"汉字简繁体翻译器"软件,准备提供Gb32,Big5码和英文三种语言菜单给用户,那么你可以试试用Dll来保存字符资源.
我们需要建立三个Dll.第一步当然是写Rc文件,举Gb32码为例,内容如下:
/*MySc.rc*/
#define IDS_MainForm_Caption 1
#define IDS_BtnOpen_Caption 2
#define IDS_BtnSave_Caption 3
#define IDS_BtnBig5_Caption 4
#define IDS_BtnGb32_Caption 5
#define IDS_BtnHelp_Caption 6
#define IDS_Help_Shelp 7
Stringtable
{
IDS_MainForm_Caption,"汉字简繁体翻译器"
IDS_BtnOpen_Caption,"打开文件"
IDS_BtnSave_Caption,"保存文件"
IDS_BtnBig5_Caption,"转换成Big5"
IDS_BtnGb32_Caption,"转换成Gb32"
IDS_BtnHelp_Caption,"帮助"
IDS_Help_Shelp,"输入文字或打开文件后按需要点击按钮即可转换!"
}
第二步是Brcc32编译为Res文件后用上面的方法得到Dll文件,另外两个Dll用同样的方法生成.下面来应用一下:
新建一个工程,放上五个Button:BtnOpen,BtnSave,BtnBig5,BtnGb32和BtnHelp.还有一个TComboBox:CbSelect用来选择语言种类的.
具体代码如下:
unit Unit1;
interface
......
private
SHelp: string;
function SearchLanguagePack: TStrings;
procedure SetActiveLanguage(LanguageName: string);
{ Private declarations }
......
implementation
procedure TForm1.CbSelectChange(Sender: TObject);
begin
SetActiveLanguage(CbSelect.Text);//调用相应Dll文件读取相应字符.
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
CbSelect.Items.AddStrings(SearchLanguagePack);//搜索当前目录下所有的Dll文件名称
end;
function TForm1.SearchLanguagePack: TStrings;
var
ResultStrings: TStrings;
DosError: integer;
SearchRec: TsearchRec;
begin
ResultStrings := TStringList.Create;
DosError := FindFirst(ExtractFilePath(ParamStr(0)) + '*.dll', faAnyFile, SearchRec);
while DosError = 0 do
begin
ResultStrings.Add(ChangeFileExt(SearchRec.Name, ''));
DosError := FindNext(SearchRec);
end;
FindClose(SearchRec);
Result := ResultStrings;
end;procedure TForm1.SetActiveLanguage(LanguageName: string);
var
Hdll: Hmodule;
MyChar: array[0..254] of char;
DllFileName: string;
begin
DllFileName := ExtractFilePath(ParamStr(0)) + LanguageName + '.dll';
if not FileExists(DllFileName) then Exit;
Hdll := loadlibrary(Pchar(DllFileName));Loadstring(hdll, 1, MyChar, 254);
Self.Caption := MyChar;
//读取字符资源，1表示资源文件中定义的1
Loadstring(hdll, 1, MyChar, 254);
Self.Caption := MyChar;Loadstring(hdll, 2, MyChar, 254);
BtnOpen.Caption := MyChar;Loadstring(hdll, 3, MyChar, 254);
BtnSave.Caption := MyChar;Loadstring(hdll, 4, MyChar, 254);
BtnBig5.Caption := MyChar;Loadstring(hdll, 5, MyChar, 254);
BtnGb32.Caption := MyChar;Loadstring(hdll, 6, MyChar, 254);
BtnHelp.Caption := MyChar;Loadstring(hdll, 7, MyChar, 254);
SHelp := MyChar;Freelibrary(hdll);
Application.Title := Self.Caption;
//------------------------
BtnOpen.Visible := True;
BtnSave.Visible := True;
BtnBig5.Visible := True;
BtnGb32.Visible := True;
BtnHelp.Visible := True;
//------------------------
end;
procedure TForm1.BtnHelpClick(Sender: TObject);
begin
Application.MessageBox(Pchar(SHelp), 'Http://lovejingtao.126.com', MB_ICONINFORMATION);
end;
end.
可能你会说,这种方法还不如我自己在程序中直接定义三种具体的值来的方便.甚至我自己自定义一个结构好了，用不着用DLL那么麻烦的。但是如果你的程序要用的字符很多呢?比如说Windows操作系统,本身就有简体中文,繁体中文,英文等等版本,用Dll的话只要直接替换DLL即可,而不用每发行一个版本就打开代码来修改一次。这样一来可以大大减少工作量和出错的机会.说到这里,再多说一句:Windows系统本身很多Dll带有了图片等资源,我们可以在程序中直接调用,这样一来我们的EXE也可以减少不少!当然最小的方法是实时生成技术.老外曾经写了一个67KB的程序就是利用了这个方法.感兴趣的朋友可以到http://go4.163.com/lovejingtao/ha1.exe下载.
----------------------------------------------------------------------
(三)高级应用篇:
Delphi是个很有效率的开发工具,但是它有一个缺点就是生成的EXE文件太大.一个程序就算只有一个空窗口体积也有286KB.如果直接用API来写的话程序体积是小了,但是又太繁琐,无法立即看到界面效果,根本谈不上是可视化开发.其实并非"鱼与熊掌不可兼得",利用资源文件我们就可以轻松达到这个目的.
在开始之前,我们需要一个可以编辑资源文件的工具.这类工具很多,比如说Resource WorkShop就是非常好的一个.如果一时找不到,利用VC的编辑器来也是可以的.下面我们就以VC的为例示范如何创建一个窗口资源文件.运行VC,打开菜单File-->New,将出现一个多项选择页.我们选择Files-->ResourceTemplate,在右边的File填上Demo,Location选择保存路径,然后点击按钮OK返回VC开发环境.
选择菜单Insert-->Resource,将出现一个资源类型选择框.我们把鼠标移到Dialog上面.不用展开,点击右边的New即可,这时候返回VC开发环境并出现一个只有关闭按钮和两个Button的窗体.将鼠标选定窗体,击右键选择最后一项Properties,将出现一个设置窗口,将ID改为"MAINFORM"(注意:跟下面添加的其它控件的属性设置方法不同,主窗口的ID必须把双引号写上去,而且名称必须为大写.否则程序将找不到资源.程序会一运行就退出了.)Caption改为"安装程序",这时候可以立刻看到窗口的标题变成了"安装程序",把Styles的Minimize box选上,More Styles的Center勾上使程序运行时的位置居中.当然你也可以设置它的坐标.其它保留默认值即可.回到开发环境,在控件框里面分别选择一个Static Text,一个Edit Box,一个Button和一个Group Box添加到窗体上面.把它们按照自己的爱好排列整齐.然后逐个修改它们的属性.方法就是按照上面说的选定控件后击右键选择最后一项Properties,在出现的属性框里面修改.其中属性如下:Group Box的Caption属性清空,Static Text的Caption属性改为"请选择安装目录:",Edit Box的ID改为10001.第一个Button的ID为10002,Caption属性为"选择",第二个Button的ID为10003,Caption属性为"安装",第三个Button的ID为10004,Caption属性为"退出".为了使程序更加完美,我们为它再添加一个菜单IDR_MENU1.选择Insert-->Resource-->Menu,我们这里只简单添加一项"文件-->退出",其中"退出"的ID为10005.然后在主窗口的属性Menu设定为IDR_MENU1即可.
为了使程序更加美观,我们再添加一个小图标,同时这也将是我们程序的图标.选择Insert-->Resource-->Icon-->Import,选择一个图标文件.并将它的ID设置为"MAINICON"(注意:必须把双引号写上而且字母为大写),为窗口添加一个Picture控件并设置它的属性Type:Icon,Image下拉选择刚才的图标MainIcon即可.
如果你想为程序在鼠标添加一些信息也是可以的.选择Insert-->Resource-->Version即可.
到这里我们已经完成了一个简单的"安装程序"的窗体设计.实际上我们现在就可以在Delphi中调用它了.我们先把"劳动成果"保存起来.选择File-->Save As,在文件类型里选择"32-bit Resource File(.res)"保存为"Demo.res",文件大小大约为2.65KB.
新建一个扩展名为dpr的文本文件MyDemo.Dpr,键入如下代码:
Uses Windows,Messages;
{$R Demo.Res}
function MainDialogProc(DlgWin:hWnd;DlgMessage:UINT;DlgWParam:WPARAM;DlgLParam:LPARAM):integer;stdcall;
begin
Result := 0;
case DlgMessage of
WM_Close:
begin
PostQuitMessage(0);
Exit;
end;
end;
end;
begin
DialogBox(hInstance, 'MAINFORM', 0, @MainDialogProc);
end.
用Delphi打开它编译一次即可产生一个大小为19KB的EXE.是不是很小!实际上,你甚至只用一行代码就把它Show出来,不过程序无法关闭而已.
Uses Windows;
{$R Demo.Res}
function MainDialogProc: integer;
begin
Result := 0;
end;
begin
DialogBox(hInstance, 'MAINFORM', 0, @MainDialogProc);
end.
上面的程序只不过是一个空窗口而已,现在我们来写代码响应按下相应按钮响应的事件.完整代码如下:
program MyDemo;
uses Windows, Messages, shlobj;
const
ID_Edit = 10001;
ID_Selet = 10002;
ID_Setup = 10003;
ID_Quit = 10004;
ID_Exit = 10005;
{$R Demo.Res}
var
MainWin: HWND;function My_Gettext: string;
var
Textlength: Integer;
Text: PChar;
s: string;
begin
TextLength := GetWindowTextLength(GetDlgItem(MainWin, ID_Edit));
GetMem(Text, TextLength + 1);
GetWindowText(GetDlgItem(MainWin, ID_Edit), Text, TextLength + 1);
s := text;
FreeMem(Text, TextLength + 1);
Result := s;
end;function Getmyname: string;
var
i, j: integer;
begin
J := 3;
for i := 1 to length(ParamStr(0)) do
if ParamStr(0)[i] = '\' then J := I;
Result := copy(ParamStr(0), J + 1, length(ParamStr(0)) - J);
end;function SelectDirectory(handle: hwnd; const Caption: string; const Root:WideString;outDirectory:string): Boolean;
var
lpbi: _browseinfo;
buf: array[0..MAX_PATH] of char;
id: ishellfolder;
eaten, att: cardinal;
rt: pitemidlist;
initdir: pwidechar;
begin
result := false;
lpbi.hwndOwner := handle;
lpbi.lpfn := nil;
lpbi.lpszTitle := pchar(caption);
lpbi.ulFlags := BIF_RETURNONLYFSDIRS + BIF_EDITBOX;
SHGetDesktopFolder(id);
initdir := pwchar(root);
id.ParseDisplayName(0, nil, initdir, eaten, rt, att);
lpbi.pidlRoot := rt;
getmem(lpbi.pszDisplayName, MAX_PATH);
try
result := shgetpathfromidlist(shbrowseforfolder(lpbi), buf);
except
freemem(lpbi.pszDisplayName);
end;
if result then
begin
directory := buf;
if length(directory) <> 3 then directory := directory + '\';
end;
end;function MainDialogProc(
DlgWin: hWnd;
DlgMessage: UINT;
DlgWParam: WPARAM;
DlgLParam: LPARAM
)
: integer; stdcall;
var
MyIcon: HICON;
Sdir: string;
begin
Result := 0;
case DlgMessage of
WM_INITDIALOG:
begin
MyIcon := LoadIcon(hInstance, 'MainIcon');
SetClassLONG(DlgWin, GCL_HICON, MyIcon);
MainWin := DlgWin;
end;
WM_Close:
begin
PostQuitMessage(0);
Exit;
end;
WM_COMMAND:
case LOWORD(DlgWParam) ofID_Selet:
begin
if SelectDirectory(DlgWin, '请选择安装目录', '', Sdir)
then SendMessage(GetDlgItem(DlgWin, ID_Edit), WM_SETTEXT, 0, lParam(pChar(Sdir)));
end;
ID_Setup:
begin
if My_Gettext = '' then
begin
MessageBox(DlgWin, '请先选择安装文件夹!', '信息', MB_ICONINFORMATION + MB_OK);
Exit;
end;
CopyFile(pchar(ParamStr(0)), pchar(My_Gettext + Getmyname), false);
MessageBox(DlgWin, '安装完毕!', '信息', MB_ICONINFORMATION + MB_OK);
PostQuitMessage(0);
Exit;
end;
ID_Quit:
begin
PostQuitMessage(0);
EXIT;
end;
ID_Exit:
begin
if MessageBox(DlgWin, '你点击了菜单“退出”，你确定退出程序吗?', '信息', MB_ICONQUESTION + MB_OKCANCEL) = IDOK then
PostQuitMessage(0);
Exit;
end;
end;
end;
end;
begin
DialogBox(hInstance, 'MAINFORM', 0, @MainDialogProc);
end.
其中SelectDirectory函数的作用是返回一个选择的文件路径.然后把自己拷贝到选择的目录下,当然很多处理没有写,读者可以自行添加.文件编译后大小为22KB,如果直接用Delphi的VCL来写的话,将为338KB!完整代码可以在我的主页上下载:http://go4.163.com/lovejingtao/setup2.zip.代码中的消息处理相信大家看的懂.如果不用资源文件而直接用API来写将对它更加理解深刻,.限于篇幅这里不做详细介绍,感兴趣的读者可以自行下载代码来看:http://go4.163.com/lovejingtao/setup1.zip.
全部代码在Delphi+Pwin2000下通过.
------------------------------------------------------------------------
谁解决这个问题，我用游戏原码交换！