1.引用dll**檔案
type
procedure setskin(skinnam:string);
procedure tfrmmain.setskin(skinnam:string);
varhinst:thandle;
rstream:tresourcestream;
begin
hinst:=loadlibrary('allsk.dll');
if hinst=0 then
exit
else
begin
rstream:=tresourcestream.create(hinst,skinnam,'myskin');
dxskinsuserskinloadfromstream(rstream);
dxskincontroller1.nativestyle:=false;
dxskincontroller1.useskins:=true;
end;
end;
procedure tfrmmain.button1click(sender: tobject);
begin
setskin('office2007blue');
end;
2.有效減小使用**後軟體體積巨大的方法:
一. delphi的主選單: project -> modify skin options ,彈出project skin options
editor 對話方塊,從列表中,只選擇: userskin這一項,取消enable skin support的勾,
點ok退出. (注意:此步驟需dev40以上版本才有效)
二. 從dev express 項下選擇dxskincontroller控制項,新增到工程,設定dxskincontroller1的skinname屬性設為:userskin ;
三. **:(對res**有效,在程式資料夾裡需要先建乙個叫skin的資料夾)
procedure tfrmmain.button1click(sender: tobject);
var str:string;
begin
str:='xmas2008blue.skinres'; //可自行修改
dxskincontroller1.nativestyle:=false;
dxskincontroller1.useskins:=true;
end;
python 共享資料 用Python共享全域性資料
a在globaldatabase的宣告中分配了乙個列表.globaldatabase的每個例項都以對同一列表的引用開始,我們將其稱為 原始 列表.當您在第乙個示例中執行self.a value時,為該例項或 self 替換對原始列表的引用,並引用您指定的列表值.建立的任何新例項仍將引用原始列表,這就...
全0和全1的主機位址是幹嗎用的
即 每個網段32個ip位址,第乙個是網路位址,用來標誌這個網路,最後乙個是廣播 位址,用來代表這個網路上的所有主機.這兩個ip位址被tcp ip保留,不可分配給主機使用.另外,第乙個子網192.168.10.0 31和最後乙個子網192.168.10.224 255通常也被 保留,不能使用.原因是,...
用全排列解決N皇后問題(暴力法)
為八皇后問題,count為最後可行的方案數,共92種 要解決n皇后,只需要修改部分引數 include include include void printarray int a,int p,int q printf n void swap int a,int p,int q void perm i...