ترفندهای دلفی

X

ترفندهای دلفی

رسم تصادفی منحنی Bezier

(برای دیدن کد کلیک کنید)

کد ۷

+ نوشته شده در چهارشنبه یازدهم مرداد 1385ساعت 4 قبل از ظهر توسط سید شاهرخ نبوی |

پرينت از يک فايل Excel به کمک Delphi

البتّه اين يک نمونه مثال برای پرينت هست که به کمک OLE کار ميک (برای دیدن کد کلیک کنید)

کد 0

+ نوشته شده در چهارشنبه یازدهم مرداد 1385ساعت 3 قبل از ظهر توسط سید شاهرخ نبوی |

کپی کردن ، پاک کردن و cut کردن در يک TWebBrowser

(برای دیدن کد کلیک کنید)

کد ۱۰

+ نوشته شده در سه شنبه دهم مرداد 1385ساعت 6 قبل از ظهر توسط سید شاهرخ نبوی |

بدست آوردن ليست DNSهاي سرورهاي محلي

(برای دیدن کد کلیک کنید)

کد ۱۶

+ نوشته شده در سه شنبه دهم مرداد 1385ساعت 3 قبل از ظهر توسط سید شاهرخ نبوی |

گرفتن و تنظیم کردن resolution تصاویر jpeg

(برای دیدن کد کلیک کنید)

+ نوشته شده در دوشنبه نهم مرداد 1385ساعت 2 قبل از ظهر توسط سید شاهرخ نبوی |

داشتن Hint چند خطی

(برای دیدن کد کلیک کنید)

کد ۹

+ نوشته شده در یکشنبه هشتم مرداد 1385ساعت 2 قبل از ظهر توسط سید شاهرخ نبوی |

مخفی نمودن مکان نما

مخفی و آشکار نمودن مکان نما ( موس) (برای دیدن کد کلیک کنید)

+ نوشته شده در شنبه هفتم مرداد 1385ساعت 5 قبل از ظهر توسط سید شاهرخ نبوی |

تعیین سرعت چشمک زدن مکان نما

این تغیرات در تمام ویندوز ثبت می شود. (برای دیدن کد کلیک کنید)

کد ۱

+ نوشته شده در شنبه هفتم مرداد 1385ساعت 3 قبل از ظهر توسط سید شاهرخ نبوی |

جابجا کردن فرم

اين تکه برنامه رو قبل از end; قرار بدید .
میبینید که از روی خود فرم میتونید فرم رو جابجا کنید. (برای دیدن کد کلیک کنید)

کد ۰

+ نوشته شده در چهارشنبه چهارم مرداد 1385ساعت 2 قبل از ظهر توسط سید شاهرخ نبوی |

باز کردن منوی استارت ویندوز

(برای دیدن کد کلیک کنید)

کد ۰

+ نوشته شده در چهارشنبه چهارم مرداد 1385ساعت 2 قبل از ظهر توسط سید شاهرخ نبوی |

هشدار در زمان ورود و خروج سی دی

(برای دیدن کد کلیک کنید)

کد ۲۸

+ نوشته شده در سه شنبه سوم مرداد 1385ساعت 3 قبل از ظهر توسط سید شاهرخ نبوی |

مخفی کردن استارت باتن

(برای دیدن کد کلیک کنید)

کد ۱۵

+ نوشته شده در سه شنبه سوم مرداد 1385ساعت 3 قبل از ظهر توسط سید شاهرخ نبوی |

تغيير زبان سيستم

زمانیکه فرم نمایش داده می شود زبان سیستم به فارسی تغییر می یابد. (برای دیدن کد کلیک کنید)

کد ۲۴

+ نوشته شده در سه شنبه سوم مرداد 1385ساعت 3 قبل از ظهر توسط سید شاهرخ نبوی |

بدست آوردن مسير فولدرهاي My Computer

توسط اين کد که در onclick دکمه نوشته شده مي توانيد مسير درايوها( هم Local Disks و هم CD-Roms) و ديگر فولدرهايي که در My Computer موجود است را بدست آوريد.
براي نمايش مسيرها از list box استفاده کنيد.
براي اجرا شدن کدها بايد دو يونيت ActiveX, ShlObj را به يونيت برنامه خود اضافه کنيد. (برای دیدن کد کلیک کنید)

کد ۱۵

+ نوشته شده در دوشنبه دوم مرداد 1385ساعت 4 قبل از ظهر توسط سید شاهرخ نبوی |

غير فعال کردن Ctrl + Alt + Delete در XP

در واقع ابن کد با تغييراتي در رجيستري ويندوز باعث غير فعال شدن task manager ميشود.
براي مثال در اين کد از onclick دکمه اي براي فراخواني تابع استفاده کرده ايم.
(برای دیدن کد کلیک کنید)

کد ۱۳

+ نوشته شده در دوشنبه دوم مرداد 1385ساعت 4 قبل از ظهر توسط سید شاهرخ نبوی |

چند افکت تصويری

اين تابع جالب، يه جورايي واسه خودش آخر Photoshop. با اين تابع مي تونين کارايي مثل smoothing, anti-aliasing, edge detection,
detail enhancment و غيره انجام داد.
فقط کافيه مقادير عددي آرايه 2بعدي که تو مثال اين کد نوشته شده را عوض کنيد. حتما تستش کنيد خيلي جالبه....
براي استفاده 2 يونيت، Graphics, Windows را اضافه کنيد. سپس نوع جديد زير را قبل از کلمه کليدي implementation اضافه کنيد و در نهايت تابع را اضافه کنيد. (برای دیدن کد کلیک کنید)

کد ۱۸

+ نوشته شده در دوشنبه دوم مرداد 1385ساعت 4 قبل از ظهر توسط سید شاهرخ نبوی |

ايجاد افکت اسپری

بوسيله اين تابع شما مي توانيد قلمي ساخته که روي عکس را به صورت اسپري رنگ آميزي کند.
تابع Spray داراي 5 آرگومان است:

procedure Spray(Canvas: TCanvas; x, y, r: Integer; Color: TColor);

Canvas در واقع پرده نقاشي تصوير مورد نظرتان را تعيين ميکند، x,y مختصات مرکزي دايره اي که اسپري ميشود را تعيين ميکند، r شعاع دايره اسپري را مشخص مي کند، Color رنگ اسپري را مشخص مي کند.
توجه کنيد عکس انتخابي حتما Bmp باشد. (برای دیدن کد کلیک کنید)

کد ۱۶

+ نوشته شده در دوشنبه دوم مرداد 1385ساعت 4 قبل از ظهر توسط سید شاهرخ نبوی |

شناسايي سيستم فايل بک فايل

به وسيله اين تابع مشخص مي سازيد فايلي که آدرس آن را به عوان آرگومان براي تابع ارسال شده روي درايوي است که سيستم فايل آن NTFS مي باشد. به بيان بسيار ساده سيستم فايل يک درايو همان نوع فرمتبندي آن درايو است که داراي انواع FAT,FAT32,NTFS,LINUX,... ميباشد.
براي استفاده از اين کد بايد يونيت ComObj را به بخش Uses اضافه کنيد. (برای دیدن کد کلیک کنید)

کد ۹

+ نوشته شده در دوشنبه دوم مرداد 1385ساعت 4 قبل از ظهر توسط سید شاهرخ نبوی |