eger yıl 4’e tam bolunuyor ise ve aynı zamanda 100’e tam bolunmuyor veya 400’e tam bolunuyor ise artık yıldır. 1900 yılı artık yıl degildir… uses System.SysUtils; function IsLeap(year:Integer): Boolean; begin IsLeap := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)); end; …
Devamını Oku »Pascal IsPrime Function
function IsPrime(Number: Cardinal): Boolean; var cDivisor, cMax : Cardinal; begin Result := False; if Number and 1 = 0 then Exit; cMax := Trunc(Sqrt(Number)) + 1; cDivisor := 3; while cMax > cDivisor do begin if Number mod cDivisor = 0 then Exit; Inc(cDivisor, 2); if Number mod cDivisor = …
Devamını Oku »forrest gump
1995 yılının en iyi film oscarını kazanan film; tom hanks’in iqsu 75 olan birinin neler yapabildiğini canlandırdığı defalarca izlenilesi filmde amerika tarhinde önemli olaylara ve isimlere yer verilmiş en sevdiğim repliklerden forrest – “benimle evlenirmisin, ben iyi bir koca olurum jenny” jenny -“olursun forrest” forrest – “ama benimle evlenmezsin” jenny …
Devamını Oku »Destroy Windows 10 Spying
Destroy Windows 10 Spying Bu Yazılım Windows 7/8/8.1/10’daki casus yazılımları temizler . Program Github ile yapılmıştır ve açık kaynak kodludur..Bu Program Takip Edilmeyi Tamamen Yok eder. Telemetriden bazı şeyleri siler ve etkisizleştirir,Windows Defender’ı, Cortana’yı, ve daha bir çok şeyi siler. Programı Windows Update’i devredışı bırakarak takip edilme riskinizi ortadan kaldırır. …
Devamını Oku »Object Pascal Ram Kullanımını Öğrenme
function CurrentMemoryUsage: Cardinal; var PMC: PsAPI.TProcessMemoryCounters; // receives info about process memory begin Result := 0; // default result on error or if not supported on OS PMC.cb := SizeOf(PMC); if PsAPI.GetProcessMemoryInfo( Windows.GetCurrentProcess, @PMC, SizeOf(PMC) ) then Result := PMC.WorkingSetSize; end; Gerekli unitler: SysUtils, Windows, PsAPI.
Devamını Oku »Delphi Mac Adres Öğrenme
Bilgisayarda ilk ethernet bağdaştırıcısının mac adresini döndürür bağdaştırıcı yoksa veya hata durumunda boş dize gönderir unit unit1; interface uses SysUtils, Windows, Nb30; function GetMacAddress: string; implementation function GetMacAddress: string; type // This type is defined in MSDN sample code, but tests have found this is // not needed (on XP …
Devamını Oku »Pascal-Program uzak masaüstü bağlantısı ile mi çalışıyor
Program eğer uzak bağlantı ile çalışıyorsa true değilse false döndürür. uses Windows; function IsRemoteSession: Boolean; const SM_REMOTESESSION = $1000; // value to pass to GetSystemMetrics begin Result := Windows.GetSystemMetrics(SM_REMOTESESSION) <> 0; end; begin write(IsRemoteSession); readln; end.
Devamını Oku »Pascal Bilgisayar adı döndürme
Ana bilgisayarın adını döndürür. uses Windows; function ComputerName: string; var Buf: array[0..Windows.MAX_COMPUTERNAME_LENGTH] of Char; // for computer name BufSize: Windows.DWORD; // size of name buffer begin BufSize := SizeOf(Buf); if Windows.GetComputerName(Buf, BufSize) then Result := Buf else Result := ''; end; begin write(ComputerName); readln; end.
Devamını Oku »Pascal Is Admin / Kullanıcı Hesabı Yöneticimi
program jhgf; {$APPTYPE CONSOLE} {$R *.res} uses Windows; function IsAdmin: Boolean; const // SID related constants SECURITY_NT_AUTHORITY: TSIDIdentifierAuthority = (Value: (0, 0, 0, 0, 0, 5)); SECURITY_BUILTIN_DOMAIN_RID = $00000020; DOMAIN_ALIAS_RID_ADMINS = $00000220; var AccessToken: Windows.THandle; // process access token TokenGroups: Windows.PTokenGroups; // token groups InfoBufferSize: Windows.DWORD; // token info buffer …
Devamını Oku »Object Pascal İnternet Kontrol
Belirtilen web barındırma adını çözümlemeye çalışarak bir bilgisayara internete bağlı olup olmadığını kontrol eder. Delphi 10.1 versiyon program InternetConrol; {$APPTYPE CONSOLE} {$R *.res} uses Winapi.WinSock; function CheckInternetConnection(AHost: PAnsiChar): Boolean; var PHE: PHostEnt; GInitData: TWSAData; begin WSAStartup($101, GInitData); PHE := GetHostByName(AHost); WSACleanup; Result := (PHE <> nil); end ; begin Write(CheckInternetConnection('www.google.com')); …
Devamını Oku »