PDA

View Full Version : استفاده از آیکون های یک فایلِ Dll یا EXE در دلفی.

Dokht Esmati
12 October 2005, 12:32 AM
به منوی Project برید. و View Source رو انتخاب کنید و به سورتِ زیر تغییر بدید :

program IconTest;
uses
Forms,
Windows,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
{$R WindowsXP.res}
var
TheModule:HModule;
begin
// Initializing The Application.
Application.Initialize;
// Specifies The Sell32.Dll Module Address
TheModule:=GetModuleHandle('Shell32.dll');
// Setting The Icon Handle.
Application.Icon.Handle:=LoadIcon(TheModule,Pchar( MAKEINTRESOURCE(4)) );
// Killing The Module.
FreeModule(TheModule);
// Creating Forms Instance.
Application.CreateForm(TForm1, Form1);
//Running The Application.
Application.Run;
end.


توزیحِ ابارتهایی که Bold شدن :
"4" : نام Icon (باید با مبهسِ Resource ها آشنا باشید) (Icon Resource Name)
"'Shell32.dll'" : نام فایلِ DLL یا EXE

توزیحاتِ ازافی رو در متنِ برنامه دادم.

لتف کنید حقِ کپی رو رآیت کنید. (تنها با زکرِ نامِ سایت)
GhAeM
12 October 2005, 10:28 AM
بسيار بسيار آموزنده بود!
Programmer
12 October 2005, 11:03 AM
سلام دوستان گرامی
میشه توضیح بدین وقتی برنامه فوق رو اجرا کنیم چی میشه ؟
من میخواستم از آیکون مثلا Folder برای برنامه دلفی استفاده کنم ! (منظورم آیکون فایل اجرائیه)
ولی نتیجه نگرفتم !
Dokht Esmati
13 October 2005, 01:07 AM
برای این کار باید اون Icon رو از Resource ِ فایل جدا کنید . و بعد اون رو به عنوانِ آیکونِ برنامتون استفاده کنید.
Programmer
13 October 2005, 04:52 PM
چه جوری باید این کار رو انجام بدم ؟
Dokht Esmati
13 October 2005, 04:58 PM
اگر خودتون برنامه ای برای این کار ندارید ، با برنامه ای مسلِ Resource Hacker ، می تونید این کار رو بکنید.
متمئنن این جا به جواب می رسید :
[Only registered and activated users can see links]
این هم کمکتون میکنه :
[Only registered and activated users can see links]
موفق باشید:icon_cool
Dokht Esmati
13 October 2005, 05:02 PM
کار با برنامه ی بالا بسیار سادس.
بعد از این که آیکون های موردِ نیازتون رو save کردید. این کار ها رو بکنید :
به منوی Project برید . بعد Options بعد Application و بعد اونجا آیکونِ موردِ نزر رو ازافه کنید.
Dokht Esmati
4 November 2005, 07:26 PM
به این هم توجه کنید :
به منوی Project برید. و View Source رو انتخاب کنید. و به این سورت تغییرش بدید :
program Project1;
uses
Forms,Windows,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.Icon.Handle:=LoadIcon(0, IDI_INFORMATION);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
برای Iconهای مختلف ، باید از این جدول استفاده کنید :
IDI_APPLICATION[Only registered and activated users can see links]