PDA

View Full Version : نکته ها و ترفندها



kia1349
دوشنبه 21 اردیبهشت 1383, 07:13 صبح
#define SEM_FAILCRITICALERRORS 0x0001

*-- SetErrorMode determines whether the system handles
*-- serious errors or whether the program handles them.
DECLARE INTEGER SetErrorMode in win32api INTEGER
*-- SetErrorMode returns what the flags were last set.
lnOldMode = SetErrorMode(SEM_FAILCRITICALERRORS)
*-- Test the FoxPro DISKSPACE() function. If you get a -1, then
*-- there is no disk in the drive.

lnSpace = DISKSPACE("a:",1)
IF lnSpace = -1
MESSAGEBOX("No disk present.", 0)
ELSE
* Get Free Space
lnFreeSpace = DISKSPACE("a:", 2)
lcTempName = "A:\" + SYS(2015) + ".tmp"
IF lnFreeSpace > 0
* Try to create a file
lnFH = FCREATE(lcTempName)
IF lnFH < 0
MESSAGEBOX("The disk is write-protected.", 0)
ELSE
= FCLOSE(lnFH)
ERASE (lcTempName)
ENDIF
ENDIF
ENDIF
*-- Restore system error handling settings.
= SetErrorMode(lnOldMode)

rezaTavak
دوشنبه 21 اردیبهشت 1383, 09:40 صبح
جالب بود و تشکر

rezaTavak
سه شنبه 27 مرداد 1383, 00:51 صبح
سلام

یه نکته که بهش بر خوردم اینه که اگر فایل Dll یک ویرایش از مثلا VFP7r.dll را که در زمان اجرا لازم است را در داخل همان شاخه ای که برنامه را نصب میکنید بگذاریدچون ممکن است یکی دیگه مثل شما برنامه را با فاکس پرو و Sp دیگری نوشته باشه و اگر شما و ایشان از شاخه System برای فایل Dll استفاده کنید تداخل پیش میاد. بعبارت دیگه در Sp فایل Dll هم تغییر میکنه.

abbas.net
دوشنبه 09 مهر 1386, 15:17 عصر
با سلام خدمت دوستان.
یک برنامه کوچیک وجمع و جور برای آلارم دهی کارهای اجرایی در محیط کار نوشتم.دوستانی که طرح و نظری در مورد بهتر شدن برنامه دارند لطفا راهنمایی کنند.در ضمن در این برنامه از توابع تاریخ فارسی آقای کیا استفاده شده.

rezaTavak
چهارشنبه 09 آبان 1386, 11:36 صبح
سلام

در اینجا کلیه ترفندهای ارسال شده جمع شده است: