exe Icon Changer

[behjaf]

سلام
دوستان سورس کدی برای این موضوع دارند ؟؟؟
اینکه بتونیم مثلا یه فایل exe رو انتخاب کنیم و آیکون یه فایل exe دیگه رو بهش بدیم

[yeketaz]

دو تابع برای استخراج آیکون از درون یک فایل نیازه :

Public Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As
Long) As Long

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

---------------------------------------------------------------------------------------

اول با استفاده از تابع ExtractIcon آیکون را استخراج و با DrawIcon آیکون را روی یک شی گرافیکی رسم می کنی مثل : PictureBox

سپس تصویر را ذخیره و سپس آیکون برنامه را تغییر می دی که برای این کار یک مثال با دو زبان برات گذاشتم :

این برای ویژوال بیسیک :


  icon changer.zip (اندازه: 14.99 KB / تعداد دفعات دریافت: 230)

اینم برای ویژوال سی ++ :


  ChangeExeIcon.zip (اندازه: 27.58 KB / تعداد دفعات دریافت: 214)

[lord_viper]

اینم یه icon changer به زبان دلفی

[behjaf]

دو تابع برای استخراج آیکون از درون یک فایل نیازه :

Public Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As
Long) As Long

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

---------------------------------------------------------------------------------------

اول با استفاده از تابع ExtractIcon آیکون را استخراج و با DrawIcon آیکون را روی یک شی گرافیکی رسم می کنی مثل : PictureBox

سپس تصویر را ذخیره و سپس آیکون برنامه را تغییر می دی که برای این کار یک مثال با دو زبان برات گذاشتم :

این برای ویژوال بیسیک :



اینم برای ویژوال سی ++ :

یه نمونه سورس دیگه نداری ؟؟؟
آخه من اینا رو برای visual basic 2008 کانورت میکنم.گاهی درست کار میکنه . گاهی نه.
الان به سر تا پای این گیر داد

[yeketaz]

من تا حالا حتی شکل VB.Net 2008 رو هم ندیدم

ولی مایکروسافت گفته از توابع API در برنامه هاتون استفاده نکنید

چون کلاسهای نت اینقدر کامل هست که نیازی به استفاده از API نباشه

----------------------------------------------------------------------------------------

اینا یادم رفت بگم :

معلومه اینا را قبول نمی کنه

چون این تعریف API در قالب VB6 است و نوعهای VB6 با سری Net فرق می کنه

[behjaf]

دقیقا حق با شماست
این که من همیشه میگم دوستان کم کم اسباب کشی کنن به من ملحق شن همینه دیگههههههههههه
الان به عنوان مثال برای گرفتن آیکون یه فایل من فقط یک خط کد مینویسم
اونم اینه
picSource.Image = Drawing.Icon.ExtractAssociatedIcon(openDLG.FileName).ToBitmap
در صورتی که شما VB 6 کار ها چند ده خط .

[behjaf]

من تا حالا حتی شکل VB.Net 2008 رو هم ندیدم

ولی مایکروسافت گفته از توابع API در برنامه هاتون استفاده نکنید

چون کلاسهای نت اینقدر کامل هست که نیازی به استفاده از API نباشه

----------------------------------------------------------------------------------------

اینا یادم رفت بگم :

معلومه اینا را قبول نمی کنه

چون این تعریف API در قالب VB6 است و نوعهای VB6 با سری Net فرق می کنه

مشکلی با تعریف api نداره . چون خودش اونها رو کانورت میکنه
یکی از مشکلاش اینه که شما متغیری از نوع any دارید ولی ما نداریم

[محمد حسینی]

دقیقا حق با شماست
این که من همیشه میگم دوستان کم کم اسباب کشی کنن به من ملحق شن همینه دیگههههههههههه
الان به عنوان مثال برای گرفتن آیکون یه فایل من فقط یک خط کد مینویسم
اونم اینه
picSource.Image = Drawing.Icon.ExtractAssociatedIcon(openDLG.FileName).ToBitmap
در صورتی که شما VB 6 کار ها چند ده خط .

جدي ميگي؟! جالبه‌!
براي اجراي برنامه چيزي نمي خواد؟ راحت اجرا ميشه؟

[Di Di]

نه چيز ديگه اي نمي خواد البته به جز دات نت فريم ورك!

[HoseinVig]

نه چيز ديگه اي نمي خواد البته به جز دات نت فريم ورك!

این خودش کم چیزیه؟