Etiket Arşivi: delphi

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.  

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.  

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 …

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.

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 …

Delphi intraweb ile SetCookie,GetCookie uses a iwinit,windows,IW.HTTP.Cookie function GetCookieValue(sName: String): String; function GetUTCDateTime: TDateTime; var GMTST: Windows.TSystemTime; begin windows.GetSystemTime(GMTST); result:=Sysutils.SystemTimeToDateTime(GMTST); end; function GetCookieValue(sName: String): String; begin Result := webapplication.Request.CookieFields.Values[sName]; end; procedure TFrm_Login.SetCookie; var ExpireOn : real; begin if ExpireIn <> 0 then ExpireOn := GetUTCDateTime + ExpireIn else ExpireOn:=-1; // …

Merhaba Bu yazımızda Yandex Translete Api kullanarak delphi uygulamamız ile translate işlemi yapacağız. Öncelikle gerekenler yandex mail hesabınız olması gerekiyor daha sonra https://tech.yandex.com/translate/ adresinden translate işlemlerimiz de kullanacağımız api key imizi alıyoruz. Json web servisinden dönen sonucu parse etmek için https://code.google.com/p/superobject/downloads/list aracını kullanacağız. https://tech.yandex.com/translate/doc/dg/concepts/api-overview-docpage/ Adresinden desteklediği diller ve diğer teknik …

procedure Form1.DBGrid1KeyDown (Sender: TObject; var Key: Word; Shift:TShiftState) ; begin if (Shift = [ssCtrl]) and (Key = VK_DELETE) then Key := 0; {ignore} end;

Delphi Türkiye  Sayın Adnan Öncevarlık hocamızın sunumunu yaptığı firebird sql veritabanı seminerleri 01) Firebird.conf Ayarları-(02.10.2013) 01:54 dk.-137 MB 02) İndexler-(08.10.2013)-01:23 dk.-232 MB 03) View-StoredProcedure-Trigger(29.10.2013)01:14 dk. – 297 MB 04) Constraints-(12.11.2013)-35 dk. – 77,9 MB 05) Foreign Key-(19.11.2013)-56 dk. – 101 MB 06) Transaction-DeadLock-I -(26.11.2013) – 49 dk. – 126 MB 07) Transaction-DeadLock-II – …

Program sizi istediğiniz saate uyandırır varsayılan olarak 07:30 değeri gelir ilk çalıştırdığınızda bunu her defasında sabitlemek istiyorsanız program çalışma klasöründe bulunan ayar.txt dosyasını açın ve örnek 09:00 gibi istediğiniz bir değeri girin. İndirmek için Tıklayın. Yeni Güncel Sürüm Setup için Tıklayın.