المشاركات : 3
المواضيع 1
:
: 0
الإنتساب : Jul 2009
السلام عليكم
لقد استدعيت المكتبة advapi32 في هذا الدرس قصد استغلال ال md5 .. المهم بما أنك أدرجت في درسك كيفية تقليل حجم التطبيق .. هل سيزيد حجم الملف التنفيذي إذا ضممت له المكتبة TinyHash ؟ مع أنها كذلك تسهل عليك استدعاء المكتبة advapi32 وأيضا الدوال عملية الهاشينغ .
ولكم مني كل الاحترام والتقدير
والسلام عليكم
المشاركات : 452
المواضيع 69
:
: 0
الإنتساب : Feb 2008
و عليكم السلام و رحمة الله
معذرة على التاخير نسيت الرد على الموضوع في يومه
إقتباس :هل سيزيد حجم الملف التنفيذي إذا ضممت له المكتبة TinyHash ؟
استعمال وحدة TinyHash تضيف حوال 70 kb فقط يعني مقبولة...
لكن من الأفضل استاصال الجزء الذي تريد فقط.
بالتوفيق ان شاء الله
المشاركات : 3
المواضيع 1
:
: 0
الإنتساب : Jul 2009
السلام عليكم
شكرا للأخ STRELiTZIA على التوضيح الطيب .. أخي تحملني قليلا .. هل ممكن في الدرس القادم أن يكون الشرح حول دالة DrawItem
كود :
function DrawItem(hDlg:HWND; wParam:wParam; lParam:lParam):LongInt;stdcall;
var
di: ^tagDRAWITEMSTRUCT;
str: PChar;
begin
di := pointer(lParam);
if di^.CtlType = ODT_BUTTON then
begin
if di^.itemState and ODS_SELECTED > 0 then SelectObject(di^.hdc, hIn2Color)
else SelectObject(di^.hdc, hInColor);
SelectObject(di^.hdc, hEdge);
FillRect(di^.hDC, di^.rcItem, hBgColor);
RoundRect(di^.hDC, di^.rcItem.Left, di^.rcItem.Top, di^.rcItem.Right,
di^.rcItem.Bottom, 6, 6);
if di^.itemState and ODS_SELECTED > 0 then OffsetRect(di^.rcItem, 1, 1);
case di^.CtlID of
ID_BtnGEN : str := '&Generate';
ID_BtnExit : str := '&Exit';
ID_BtnABOUT : str := '&About';
else str := '';
end;
SetBkMode(di^.hdc, TRANSPARENT);
SetTextColor(di^.hdc, CR_HIGHLIGHT);
DrawText(di^.hDC, str, Length(str), di^.rcItem,
DT_CENTER or DT_VCENTER or DT_SINGLELINE);
if di^.itemState and ODS_SELECTED > 0 then OffsetRect(di^.rcItem, -1, -1);
if di^.itemState and ODS_FOCUS > 0 then InflateRect(di^.rcItem, -3, -3);
Result := 1;
end else Result := 0;
end;
