{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...
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...
İş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ı...
{ Exampels of AppletFileNames: ——————————————— Timedate.cpl : Time and date Joy.cpl : Game controlers Telephon...
Harddiskin seri numarasının bulunması; procedure TForm1.Button1Click(Sender: TObject); var VolumeSerialNumber : DWORD; MaximumComponentLength : DWORD; FileSystemFlags : DWORD; SerialNumber : string; b...
Sistem Tarihini ve Saatini Değiştirmek Sistemin tarihini ve saatini değiştirmek için SetLocalTime fonksiyonunu kullanabilirsiniz. var t:TSystemTime; begin t.wYear:=1998; t.wMonth:=5; t.wDay:=23; t.wHo...
Windows Start Menu resminin degistirilmesi var Form1: TForm1; StartButton: hWnd; OldBitmap: THandle; NewImage: TPicture; procedure TForm1.FormCreate(Sender: TObject); begin NewImage := TPicture.create...
Avi dosyasının görünüm alanını seçilen panele eşitleme begin with MediaPlayer1 do begin DeviceType := dtAutoSelect; visible := false; FileName := InputBox(‘AVI’, ‘Enter AVI file name...
ico’dan bmp’ye çevirme; var Icon : TIcon; Bitmap : TBitmap; begin Icon := TIcon.Create; Bitmap := TBitmap.Create; Icon.LoadFromFile(‘c:picture.ico’); Bitmap.Width := Icon.Width...