Anasayfa / 2017 / Nisan

Monthly Archives: Nisan 2017

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 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 »

Kürk Mantolu Madonna

Her gün, daima öğleden sonra oraya gidiyor, koridorlardaki resimlere bakıyormuş gibi ağır ağır, fakat büyük bir sabırsızlıkla asıl hedefine varmak isteyen adımlarımı zorla zapt ederek geziniyor, rastgele gözüme çarpmış gibi önünde durduğum “Kürk Mantolu Madonna”yı seyre dalıyor, ta kapılar kapanıncaya kadar orada bekliyordum. “Muhakkak ki bütün insanların bir ruhu vardı, …

Devamını Oku »

Tolstoy – İtiraflarım

Bende itiraf ediyorum 🙂 tolstoy çok güzel itiraf etmiş. Kitaptan; Zihin uğraşı verdiğim bütün o süreci hatırladım ve dehşete kapıldım. Şimdi apaçık anlıyordum ki bir insanın yaşayabilmesi için ya sonsuzu görmesi ya da varoluşun anlamına ilişkin sonlu olan ile sonsuz olanı birleştiren bir açıklamasının olması gerekiyordu. Eskiden böyle bir açıklamam …

Devamını Oku »

conversion error from string firebird

conversion error from string bu hatayı alıyorsanız büyük ihtimale date tanımlı bir alana text değer atıyorsunuz örnek unqry_HizliCari.ParamByName(‘DOGUMTARIHI’).Text:=”; normalde bu alana datetipinde bir değişken veya o günün tarihi için unqry_HizliCari.ParamByName(‘DOGUMTARIHI’).asdate:=date; şeklinde atama yapmanız gerekir eğer atama yapmak istemiyorsanız atamayın 🙂 //unqry_HizliCari.ParamByName(‘DOGUMTARIHI’).Text:=”;

Devamını Oku »