http://www.box.net/shared/k03l9y7m8i
تست چهار گزینه ای
http://www.box.net/shared/3nwy16z8ck
نرم افزار MDF مخصوص مخابرات
http://www.box.net/shared/zrj6lbjsww
پسورد فایل ها : www.harchi.net
برنامه قرار گیرد.(فایلها را می توانید در سی دی ویندوز پیدا کنید).
سورس در ادامه مطلب.
ادامه مطلب
دلفی به ما امکان می دهد آرایههایی از هر نوع متغییری را ایجاد کنیم.
var
array[indexType1, ...,
indexTypen] of baseType;
برای دیدن
ادامه،روی ادامه ی مطلب کلیک کنید
ادامه مطلب
فرمتون قشنگ می شه پس ازش استفاده کنید.....
Function TransForm(wnd:Longint;
Perc:Integer):Longint;
var
j:Longint;
begin
j := GetWindowLong(wnd, GWL_EXSTYLE);
j := j Or WS_EX_LAYERED;
SetWindowLong( wnd, GWL_EXSTYLE, j);
SetLayeredWindowAttributes (wnd, 0, Perc, LWA_ALPHA);
End;
و برای فعال شدن آن:
TransForm(form1.Handle ,150);
برای انجام این کار در رویداد OnCreate فرمی که می خواهید با افکت باز بشه خط زیر را اضافه کنید :
AnimateWindow(Form1.Handle,
300, AW_Center);
البته بهتره بدونید که فقط همین یه دونه افکت نیست ، پارامتر سوم پردازه بالا نوع افکت رو مشخص می کنه ، اگه رو اون کلید Ctrl+Space رو بزنید از لیستی که باز می شه می تونید افکت های دیگه رو انتخاب کنید . همچنین پارامتر دوم زمان طول کشیدن افکت رو بر حسب میلی ثانیه مشخص می کنه . پارامتر اول هم هندل (شماره منحصر به فردی که ویندوز به هر پنجره اختصاص می ده) فرمیه که می خواهید با افکت نشون داده بشه
در دلفی عنصری وجود دارد که دیگر عناصر(مانن دکمه ها،لیست
ها و ...) که به شکل ویندوز 98 هستند را به اشکال اکس پی 32 بیتی در می آورد.فقط
کافی است شما این عنصر را بر روی فرم خود قرار دهید.همه چیز تمام است.

تبدیل می شود به

ادامه مطلب
ضبط فایل صوتی
ضبط فایل صوتی چندان که باید ساده نیست.البته تنها کاری که باید انجام دهید،احضار startrecording است.
ادامه مطلب
برای اینکه بهتر متوجه بشین کمی به طور خلاصه توضیح می دم
شما بعد ها در بیشتر مواقع وقتی بخواهید از کد خاصی استفاده کنید باید قبل از کد نویسی کارایی اون کدتون را به برنامه معرفی کنید
مثلا : کار با رجیستری - اجرا کردن فایل ( exe - swf - zip - و ... ) - کپی ، پاک کردن فایل و غیره
شما باید قبل از کد نویسی مربوط به اینها اول اون رو به برنامه معرفی کنید
حالا می پرسید که چی رو به برنامه معرفی کنیم و در کجا باید بنویسیم ؟
.....................................
برای دیدن بقیه،روی ادامه ی مطلب کلیک کنید
منبع:http://learn-delphi7.blogfa.com
ادامه مطلب
Function TransForm(wnd:Longint; Perc:Integer):Longint;
var
j:Longint;
begin
j := GetWindowLong(wnd, GWL_EXSTYLE);
j := j Or WS_EX_LAYERED;
SetWindowLong( wnd, GWL_EXSTYLE, j);
SetLayeredWindowAttributes (wnd, 0, Perc, LWA_ALPHA);
End;
و برای فعال شدن آن:
TransForm(form1.Handle ,150);
هیچ می دونستید در دلفی می توان بدون داشتن هیچ کامپوننت یا خاصی فرم ها را با افکت های مختلف نشون داد؟
برای انجام این کار در رویداد OnCreate فرمی که می خواهید با افکت باز بشه خط زیر را اضافه کنید :
AnimateWindow(Form1.Handle, 300, AW_Center);
البته بهتره بدونید که فقط همین یه دونه افکت نیست ، پارامتر سوم پردازه بالا نوع افکت رو مشخص می کنه ، اگه رو اون کلید Ctrl+Space رو بزنید از لیستی که باز می شه می تونید افکت های دیگه رو انتخاب کنید . همچنین پارامتر دوم زمان طول کشیدن افکت رو بر حسب میلی ثانیه مشخص می کنه . پارامتر اول هم هندل (شماره منحصر به فردی که ویندوز به هر پنجره اختصاص می ده) فرمیه که می خواهید با افکت نشون داده بشه
منبع: آموزش دلفی


