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 »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 »Notepad ++ fpc compile
Notepad ++ kullanarak yazdığımız kodu yine notepad++ içerisinden compile etmek için öncelikler notepad++ a NppExec plugini kuruyoruz bunun için gelen ekranda NppExec seçtikten sonra install buttonuna basıp kurulumu geçekleştiriyoruz. daha sonra fpc ile kodlarımızı nasıl compile edeceğini plugine tanımlıyoruz. bunun için F6 yada eklentiler >NppExec > Execute menüsünü izliyoruz …
Devamını Oku »UniGui uygulamasını IIS ile yayınlamak
Unigui uygulamasını iis de yayınlamak için üsteki video dan yardım alabileceğiniz gibi http://www.unigui.com/doc/online_help/iis_7_0.htm sayfasından da resimli anlatımına ulaşabilirsiniz.
Devamını Oku »Delphi TStyleManager
Yeni bir VCL windows application proje ye başladığımızda Delphi bize varsayılan görünüm olarak Windows style ını verir dilersek kendimiz bunu ide üzerinden değiştirebileceğimiz gibi kullanıcı ya da bu seçimi bırakabiliriz. Project Options(Shift + Ctrl + F11) Application başlığı altındaki appearance bağlığında tıkladığımızda aşağıda ki görseldeki görüntü gelecektir. Style değişikliklerinde elde …
Devamını Oku »Object Pascal Tam Sayı Veri Tipleri
jenerik tamsayı tipleri tip (type) aralık (range) biçim (format) Integer -2147483648 .. 2147483647 işaretli 32-bit Cardinal 0 .. 4294967295 işaretsiz 32-bit
Devamını Oku »