سلام امروز یک کد بسیار ساده برای شما آماده کردم. کد زیر باعث میشه فقط برنامه برای ۲۵ اجرا بشه نه بیشتر یک command1 به فرم اظافه کنید و بعد کد زیر را به برنامه اظافه کنید.

private sub form_load()

' the "a" in getsetting and savesetting
' can be changed to another letter
retvalue = getsetting("a", "0", "runcount") ' this returns the value of the registry edit.
worm$ = val(retvalue) + 1 ' adds one to the value of the regisrty edit.
savesetting "a", "0", "runcount", worm$ ' saves the new value

if worm$ 24 then 'put one number lower then it says.
msgbox "you have used this program 25 times, purchase is now required", 16, "sorry"
' this would send the user to a website
' in their default browser.
win32keyword "http://farsidb.com"
unload me
end
end if

end sub

private sub command1_click()

end
end sub

سلام . دوستان گرامی این اولین پروژه کامل من هست و میشه گفت هرچی از سی شارپ میدونم هنگام نوشتن این پروژه یاد گرفتم .بارها پیش اومد کدهایی که نوشته بودم رو پاک کردم و با روشی که به نظرم اصولی تر میومد نوشتم تا وقتی در این سایت برای علاقمندان قرار میدم بیش از کمک موجب بد آموزی نشه . من این پروژه رو اوایل خرداد ماه امسال شروع کردم و تا همین امروز روش کار کردم . شاید اگر دوباره بخوام بنویسم و از تجربیات الانم استفاده کنم دو ماهه هم بتونم تمومش کنم . به هر حال حساسیت روی نحوه کدنویسی و کامنت گذاری در کنار کد ها و توضیح تمام قسمت های برنامه و روشهام درون سورس و حتی گاهی آموزشهایی که توی سورس به صورت کامنت نکته وار بیان شده و کارهایی از این قبیل باعث زمانبر شدن پروژه شد . خیلی از قسمتهایی که میتونستن در برنامه نباشن رو خودم عمدا در برنامه قرار دادم تا از تمام موارد و نکات پر استفاده و سوأل بر انگیز برای افرادی که میخوان شروع کنن نمونه و مثالی قرار داده باشم . در این برنامه شما در کنار تمام روشها و دستورات عمومی ثبت و بازیابی اطلاعات با موارد زیر هم آشنا میشید :
1- ساخت اسپلش اسکرین
2- اسپلش اسکرین با نواحی شفاف مانند پنجره های ویندوز 7
3-استفاده از تول استریپ
4- استفاده از لیست ویو به همراه آیکونهای هر مورد
5- ذخیره و بازیابی گزینه های انتخاب شده چکدلیست باکس
6-متحرک کردن کنترل ها و اجزا با استفاده از حلقه فور
7- استفاده از رجکس جهت ارزشیابی تاریخ تولد وارد شده
8-ثبت و بازیابی تصویر
9-جستجوی قسمتهای مختلف نرم افزار با استفاده از تریویو
10- انتخاب موارد در گرید ویو و اعمال دستورات روی آیتمهای انتخاب شده گرید ویو (پاک کردن - چاپ و ...)
11-استفاده از نوتیفای

سورس دلفی ارسال یک فایل به سطل بازیافت recycle bin

uses ShellAPI;

function DeleteFileWithUndo(sFileName: string): Boolean;
var
fos: TSHFileOpStruct;
begin
FillChar(fos, SizeOf(fos), 0);
with fos do
begin
wFunc := FO_DELETE;
pFrom := PChar(sFileName);
fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;
end;
Result := (0 = ShFileOperation(fos));
end;

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

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Form1.Handle, WM_SYSCOMMAND, $F012, 0);
end;

سلام. کتاب آموزشی PHP به زبان فارسی، یکی از کاملترین و بهترین کتب ارایه شده در این زمینه می باشد. شما در این کتاب به همراه مثالهایی که زده می شود می توانید این زبان پرطرفدار را به خوبی بیاموزید. . برای مشاهده آموزشهای این کتاب به ادامه مطلب مراجعه کنید…

آموزش ویژگی های جدید css3 در خدمت شما عزیزان هستم. به کمک این کدی در ادامه قرار دادم ، شما می توانید به جای خطوط در حاشیه (Border) ، تصاویر را جایگزین کنید.
این ویژگی در مرورگرهای کروم ۲+ ، سافاری ۳٫۱+ ، فایرفاکس ۳٫۵+ و اپرا ۱۰٫۵+ پشتیبانی می شود.
برای دریافت فایل نمونه و کد به ادامه مطلب مراجعه کنید…

سورس AdBoardDemo در سي شارپ ( متن های تبلیغاتی در برد های تبلیغاتی )

سورس ایجاد تصاویر متحرک در سي شارپ