DELPHI – 7
MP3 Player Kaynak Kodları
{Açıklama: Media Player kullanmadan MP3 Player… Programın zipli kaynak kodlarını buradan alabilirsiniz. http://yadisk.cc/d/3MzncHryscV}unit Unit1;interfaceusesWindows, Messages, SysUtils, Classe...
Delphi ile IP Bulma
unit Unit1; interface uses Windows, Messages, SysUtils, Winsock, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Label2: TLabel; pro...
Değişkenler
İşlemlerimizi yaptığımız, sayıları (integer), metinleri (string), istediğimiz herşeyi, tanımlayarak muhafaza eden, programların vazgeçilmez öğeleridir. Bir değişkenin programda kullanılmadan önce tanı...
Kontrol Paneldeki Ayarları Programdan Açmak
{ Exampels of AppletFileNames: ——————————————— Timedate.cpl : Time and date Joy.cpl : Game controlers Telephon...
CD Sürücünün Seri Nosunu Bulmak
function GetDiskVolSerialID( cDriveName : char ) : DWord; var dwTemp1, dwTemp2 : DWord; begin GetVolumeInformation( PChar( cDriveName + ‘:’ ), Nil, 0, @Result, dwTemp2, dwTemp2, Nil, 0 ); ...
Programınızın Butonunu Görev Çubuğundan Gizlemek
Uygulamanızın Görev Çubuğundaki butonunu gizleme Uygulamanızın Görev Çubuğundaki butonunu gizlemek için programınızın ana formunun OnCreate olayına aşağıdaki kodu yazın; SetWindowLong(Application.Hand...
>Birden Fazla Alanda Arama yapmak
Locate metoduyla birden fazla alana göre arama Dataset.Locate(‘aramasahasi1 ; aramasahasi2 ;aramasahasi3 ; ….’, VarArrayOf([AranacakKelime1,AranacakKelime2,AranacakKelime3,…]),...
Renklerin hex Değerini Bulmak
Renklerin hex değerlerini bulma function TColorToHex( Color : TColor ) : string; begin Result := IntToHex( GetRValue( Color ), 2 ) + IntToHex( GetGValue( Color ), 2 ) + IntToHex( GetBValue( Color ), 2...
Programdan Ekran Koruyucu Açıp Kapamak
Ekran koruyucusunu kapatmak ve açmak //kapatmak için SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, 0); //açmak için SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, nil, 0);