close
تبلیغات در اینترنت

قالب وبلاگ

دلفی ( Delphi )


درباره سايت درباره سايت
به نام آنکه جان را فکرت آموخت در این وبلاگ سعی می شود به صورت تخصصی به مباحث مربوط به مهندسی نرم افزار به خصوص برنامه نویسی کامپیوتری پرداخته شود. مدیر وبلاگ : حامد شیرزاد

موضوعات موضوعات

آموزش برنامه نویسی

دلفی ( Delphi )

پی اچ پی ( PHP )

سی شارپ ( #C )

برنامه نویسی عمومی

جاوا ( Java )

++C

اسمبلی

ASP .NET

VBasic

HTML

اینترنت و شبکه

سیسکو ( Cisco )

معرفی سایت

مفاهیم شبکه

سخت افزار شبکه

آموزش عمومی

زبان انگلیسی

ترفند

رجیستری

کارشناسی ارشد

طرحی وب

ریاضیات

برنامه های کاربردی

سخت افزار

کارشناسی نرم افزار

دانلود

نرم افزار

کتابخانه

کتاب

جزوه

سرگرمی

سخن بزرگان

داستان

طنز

دانستنیها

عکس

شعر

اخبار


آرشيو آرشيو

1395

1394

1391

1390


نويسندگان نويسندگان

حامد شیرزاد (431)

soften (0)


جستجوگر پيشرفته سايت




?
آخرين ارسال هاي انجمن
آخرين ارسال هاي انجمن


محاسبه طول عمر یک فرد - کد دلفی



function CalculateAge(Birthday, CurrentDate: TDate): Integer; 
var 
  Month, Day, Year, CurrentYear, CurrentMonth, CurrentDay: Word; 
begin 
  DecodeDate(Birthday, Year, Month, Day); 
  DecodeDate(CurrentDate, CurrentYear, CurrentMonth, CurrentDay); 
  if (Year = CurrentYear) and (Month = CurrentMonth) and (Day = CurrentDay) then 
  begin 
    Result := 0; 
  end 
  else 
  begin 
    Result := CurrentYear - Year; 
    if (Month > CurrentMonth) then 
      Dec(Result) 
    else 
    begin 
      if Month = CurrentMonth then 
        if (Day > CurrentDay) then 
          Dec(Result); 
    end; 
  end; 
end; 


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Label1.Caption := Format('Your age is %d', [CalculateAge(StrToDate('01.03.1953'), Date)]); 
end;

بازديد : 1003 بار دسته بندي : آموزش برنامه نویسی دلفی ( Delphi ) نظر دهيد! [ ]


تشخیص توع ارتباط اینترنت با کد دلفی


uses 
  WinInet; 

const 
  MODEM = 1; 
  LAN = 2; 
  PROXY = 4; 
  BUSY = 8; 


function GetConnectionKind(var strKind: string): Boolean; 
var 
  flags: DWORD; 
begin 
  strKind := ''; 
  Result := InternetGetConnectedState(@flags, 0); 
  if Result then 
  begin 
    if (flags and MODEM) = MODEM then strKind := 'Modem'; 
    if (flags and LAN) = LAN then strKind := 'LAN'; 
    if (flags and PROXY) = PROXY then strKind := 'Proxy'; 
    if (flags and BUSY) = BUSY then strKind := 'Modem Busy'; 
  end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  strKind: string; 
begin 
  if GetConnectionKind(strKind) then 
    ShowMessage(strKind); 
end;

بازديد : 898 بار دسته بندي : آموزش برنامه نویسی دلفی ( Delphi ) نظر دهيد! [ ]


غیر فعال کردن ماوس و کیبورد با کد دلفی


procedure TForm1.Button1Click(Sender: TObject) ;
 
  function FuncAvail(dllName, funcName: string; var p: pointer): boolean;
  var
    lib: THandle;
  begin
    result := false;
    p := nil;
    if LoadLibrary(PChar(dllName)) = 0 then exit;
    lib := GetModuleHandle(PChar(dllName)) ;
    if lib <> 0 then
    begin
     p := GetProcAddress(lib, PChar(funcName)) ;
     if p <> nil then Result := true;
    end;
  end;
 
  var
    BlockInput : function(Block: BOOL): BOOL; stdcall;
 
  begin
   if FuncAvail('USER32.DLL', 'BlockInput', @BlockInput) then
   begin
    ShowMessage('Your Mouse and Keyboard will be blocked for 5 seconds!') ;
    BlockInput(true) ;
    Sleep(5000) ;
    BlockInput(false) ;
   end;
  end;
 
end.

بازديد : 1003 بار دسته بندي : آموزش برنامه نویسی دلفی ( Delphi ) نظر دهيد! [ ]


تابع دلفی برای بدست آوردن ورژن ویندوز


type TWinVersion = (wvUnknown, wvWin95, wvWin98, wvWin98SE,
 wvWinNT, wvWinME, wvWin2000, wvWinXP, wvWinVista) ;
...
 
function GetWinVersion: TWinVersion;
var
   osVerInfo: TOSVersionInfo;
   majorVersion, minorVersion: Integer;
begin
   Result := wvUnknown;
   osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo) ;
   if GetVersionEx(osVerInfo) then
   begin
     minorVersion := osVerInfo.dwMinorVersion;
     majorVersion := osVerInfo.dwMajorVersion;
     case osVerInfo.dwPlatformId of
       VER_PLATFORM_WIN32_NT:
       begin
         if majorVersion <= 4 then
           Result := wvWinNT
         else if (majorVersion = 5) and (minorVersion = 0) then
           Result := wvWin2000
         else if (majorVersion = 5) and (minorVersion = 1) then
           Result := wvWinXP
         else if (majorVersion = 6) then
           Result := wvWinVista;
       end;
       VER_PLATFORM_WIN32_WINDOWS:
       begin
         if (majorVersion = 4) and (minorVersion = 0) then
           Result := wvWin95
         else if (majorVersion = 4) and (minorVersion = 10) then
         begin
           if osVerInfo.szCSDVersion[1] = 'A' then
             Result := wvWin98SE
           else
             Result := wvWin98;
         end
         else if (majorVersion = 4) and (minorVersion = 90) then
           Result := wvWinME
         else
           Result := wvUnknown;
       end;
     end;
   end;
end;

بازديد : 696 بار دسته بندي : آموزش برنامه نویسی دلفی ( Delphi ) نظر دهيد! [ ]


کد دلفی - محدود کردن حرکت ماوس


~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.FormCreate(Sender: TObject) ;
var r : TRect;
begin
    //it would be good idea to move the
    //mouse inside the form before restriction
   r := BoundsRect;
   ClipCursor(@R) ;
end;
 
procedure TForm1.FormClick(Sender: TObject) ;
begin
   //always be sure to release the cursor
   ClipCursor(nil) ;
end;

بازديد : 721 بار دسته بندي : آموزش برنامه نویسی دلفی ( Delphi ) نظر دهيد! [ ]


پيوند ها پيوند ها'

تبادل لينک تبادل لينک تبادل لينک تبادل لينک

  • آپلود عکس

    دانلود آهنگ جدید

    دانلود انیمیشن

    دانلود فیلم جدید

    دانلود سریال

    دانلود رایگان

    آنلاک آیفون

    خرید اپل آیدی معتبر

    خرید و فروش خودرو

    فروش خودرو

    خرید خودرو

    خرید لایک اینستاگرام

    افزایش فالوور اینستاگرام

    خرید فالوور اینستاگرام

    طراحی داخلی

    خرید گیفت کارت گوگل پلی

    مشاوره پایان نامه ارشد

    خرید سرور مجازی انگلیس

    خرید فیلتر شکن

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

    پرورش بلدرچین

    رمضان سال 95

    اخبار فوتبال

    جی پی اس گارمین

    چاپ کاتالوگ و بروشور

    خرید جم کلش رویال

    دانلود آهنگ جدید

    نوین پی سی :: نوین ترین فروشگاه آنلاین در ایران












  • بک لينک بک لينک
    خرید گیفت کارت ارزان اسپاتیفای استیم
    خرید آنلاین گیفت کارت گوگل پلی با گیفتی دات کام
    خاک پوششی
    تور ارزان کیش لحظه آخری
    هتل های 5 ستاره کیش
    تور کیش از مشهد لحظه آخری
    تور کیش نوروز 95
    دیدنی های جزیره کیش
    بلیط کیش ارزان قیمت
    بلیط پرواز کیش
    خرید گیفت کارت آیتونز و گوگل پلی
    بزرگترین مرکز خرید و فروش گیفت کارت
    تور ارزان کیش نوروز 95