منتدى متعدد المهام

منتدى متعدد المهام في عدة مجالات
 
الرئيسية  البوابةالبوابة  التسجيلالتسجيل  دخولدخول  

شاطر | 
 

  استخراج أيقونــــــة ملف تنفيــــــــذي

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
ben taib allaa



عدد المساهمات : 64
نقاط : 182
تاريخ التسجيل : 28/04/2015
الموقع : http://delph.forumalgerie.net

مُساهمةموضوع: استخراج أيقونــــــة ملف تنفيــــــــذي   الخميس أكتوبر 20, 2016 7:11 pm


بسم الله الرحمن الرحيم
الصلاة السلام على رســــول الله

استخراج أيقونــــــة ملف تنفيــــــــذي

uses SHELLAPI;
procedure TForm1.Button1Click(Sender: TObject);
var fichier1: array[0..254] of char;
h1: integer;
n1: integer;

begin
if opendialog1.execute then
begin
strpcopy(fichier1,opendialog1.filename);
n1:=0;
h1:=ExtractIcon(handle,fichier1,n1);
image1.Picture.Icon.ReleaseHandle;
image1.Picture.Icon.Handle:=h1;
image1.picture.SaveToFile('icon1.ico');
end;
end
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://delph.forumalgerie.net
sabire



عدد المساهمات : 75
نقاط : 77
تاريخ التسجيل : 30/09/2016

مُساهمةموضوع: رد: استخراج أيقونــــــة ملف تنفيــــــــذي   الإثنين أكتوبر 24, 2016 5:10 pm

مشكوووووووووووووور
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
استخراج أيقونــــــة ملف تنفيــــــــذي
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى متعدد المهام :: منتديات عالم الحواسيب الشخصية :: تعلم البرمجة باللغة الدلفي-
انتقل الى: