动态皮肤 |
|
尚未結案
|
|
51819
一般會員   發表：6 回覆：8 積分：2 註冊：2007-12-28 發送簡訊給我 |
skin.DLL
[code delphi] library skin; uses SysUtils, Classes; {$R *.res} {$R Skin2.RES} function GetSkin(ASkinName: PChar; var Stream: TMemoryStream): Boolean;stdcall; var F: TResourceStream; begin try F := TResourceStream.Create(HInstance, ASkinName, 'Skin'); try Stream.CopyFrom(F, F.Size); finally F.Free; F := nil; end; Result := True; except Result := False; end; end; function GetSkinsName(var Strs: TStrings): Boolean;stdcall; var F: TResourceStream; F1: TStringStream; begin try F := TResourceStream.Create(HInstance, 'SkinsName', 'TEXT'); F1 := TStringStream.Create(''); try F1.CopyFrom(F, F.Size); Strs.Text := F1.DataString; finally F.Free; F := nil; F1.Free; F1 := nil; end; Result := True; except Result := False; end; end; exports GetSkin, GetSkinsName; begin end.[/code] rc [code delphi] skin Skin LE4-BLACKC.skn skin Skin LE4-DEFAUL.skn skin Skin LonghornSl.skn skin Skin LonghornSt.skn skin Skin macosqqqqq.skn skin Skin Office2007.skn skin Skin Tqwertyuio.skn skin Skin VISTAXPB20.skn[/code] 如何将上面生成的DLL文件，与EXE程序结合起来，从而实现每次运行程序就自动更换不停的皮肤？ 如果不使用上面的方法，还有其它方法实现每次运行程序就自动更换不停的皮肤，也麻烦各位告诉 編輯記錄
51819 重新編輯於 2008-02-09 10:04:29， 註解 無‧
|
|
pceyes
尊榮會員  發表：70 回覆：657 積分：1140 註冊：2003-03-13 發送簡訊給我 |
參考這篇
把DLL文件作为数据库使用? http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=84730 exemod.pas 作者網址 http://www.geocities.com/gacarpenter386/ 範例下載 jpeg-dll-demo.zip for Mohaomadi :-) 01/13/03
------
努力會更接近成功 |
|
51819
一般會員 發表：6 回覆：8 積分：2 註冊：2007-12-28 發送簡訊給我 |
|
|
pceyes
尊榮會員 發表：70 回覆：657 積分：1140 註冊：2003-03-13 發送簡訊給我 |
這個網站http://www.geocities.com/gacarpenter386/ 的範例
------
努力會更接近成功 |
發表時間：2008-02-08 18:43:11
IP:116.60.xxx.xxx 訂閱
系統時間：2024-05-16 11:00:48
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |