تمامی مسائل و مباحث در مورد دلفی

خوب در این تاپیک در مورد سورس کدها و کتابها بحث و گفتگو می کنیم.
از همه دوستان همکاری لازم را می خواهم.

مجموعه تبدیل تاریخ میلادی به شمسی

تبدیل تاریخ میلادی به شمسی و همچنین شمسی به میلادی به طور کاملا دقیق
آزمایش شده از هر جهت و بدون خطا
استفاده از قالب استاندارد دلفی TDateTime
وجود توابع بسیار داخلی برای مدیریت تاریخ
توانایی کار با زمان در کنار تاریخ
توضیح توابع پر کابرد را در [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] مطالعه نمایید.
همراه با کد و کاملا رایگان.
در یافت برنامه از [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ایجاد جلوه Fade در هنگام ظاهر و مخفی شدن فرم

با استفاده از این کامپوننت می توانید هنگام ظاهر یا مخفی شدن فرم آن را به صورت Fade in یا Fade out نمایش دهید.

این جاوه زیبایی به فرم شما خواهد داد.

این کامپوننت در ویندوز های 2000 به بالا کار خواهد کرد.

همراه با کد و کاملا رایگان.
دریافت از [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] .

ترکیب کننده چندین فایل مختلف در یک فایل

AnyFileCollector


ترکیب چندین فایل مخلف در یک فایل.

ذخیره نام فایلها برای استخراج راحتتر فایل ها.

استخراج فایلها به صورت کامل.

همراه با کد و کاملا رایگان.
دریافت از [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] .

پخش کننده فایل صوتی توسط
PlayDirectSound


پخش فایلهای wav با استفاده از تکنولوژی DirectSound

توانایی پخش فایلها به طور همزمان

امکان مدیریت کامل بر نحوه پخش فایل

همراه با کد و کاملا رایگان
دریافت برنامه از [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

برنامه استخراج ایمیل ها از کامپیوتر
Email lister




توانایی استخراج ایمیل ها از درون کامپیوتر شما که این توانایی را دارد که در میان سایتهایی که بازدید کرده اید به دنبال ایمیل بگردد!

حذف ایمیل های تکراری و بررسی صحت ساختار آنها.

ذخیره ایملها در یک فایل متنی.

همراه با کد به زبان VB و صد در صد رایگان!
دریافت برنامه از [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
.

اولين راه استفاده از OCX مربوط به شركت kylix soft مي باشد .

لینک سایتش زیر می باشد. [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

مجموعه 100 سوال دلفی همراه با جواب .
امیدوارم به دردتون بخوره

باز و بسته كردن سيدي درايو
با استفاده از اين فانكشن ميتونيد در هر نوع سيدي درايوي رو باز و بسته كنيد

کد:

---

uses
  MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
{باز كردن سيدي رام: در صورت موفقيت 0 برميگرداند}
 { open CD-ROM drive; returns 0 if successfull }
  mciSendString('set cdaudio door open wait', nil, 0, handle);

  { close the CD-ROM drive; returns 0 if successfull }
{بستن سيدي رام: در صورت موفقيت 0 برميگرداند}
  mciSendString('set cdaudio door closed wait', nil, 0, handle);
end;

---

به دست آوردن ليست سيدي درايوهاي متصل به كامپيوتر
يك فانشكن مينويسيم كه يك استرينگ بر ميگرداند

کد:

---

Function GetCDList : String;
Var
  I    : Integer;
  Drives: Integer;
  Tmp  : String;
begin
Drives := GetLogicalDrives;
  Result := '';
// units A=0 to el Z=25
  For I := 0 To 25 Do
    If (((1 Shl I) And Drives)<>0) Then
    Begin
      Tmp := Char(65+I)+':\';
      If (GetDriveType(PChar(Tmp))=DRIVE_CDROM) Then
                                  Result := Result+Char(65+I);
    End;
End;

---