{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...
İş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...
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...
procedure TForm1.Button1Click(Sender: TObject); var Row, Col: Integer; begin Row := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0); Col := Memo1.SelStart – SendMessage(Memo1.Handl...
Bir web adresini açma uses kısmına Shellapi unitini ekleyin; ShellExecute(Handle, ‘open’, ‘http://emreoz.cjb.net’, nil, nil, sw_ShowMaximized);
Taskbar gizleme procedure hideTaskbar; var wndHandle : THandle; wndClass : array[0..50] of Char; begin StrPCopy(@wndClass[0], ‘Shell_TrayWnd’); wndHandle := FindWindow(@wndClass[0], nil); ...
Form üstüne dbclick yapılınca maximisize (tam ekran) olması type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private procedure WMNCHitTest(var M: TWMNCHitTest); me...
Belgeler menüsüne bir dosya ekleme uses kısmına ShlOBJ unitini ekleyin; procedure TForm1.Button1Click(Sender: TObject); var s : string; begin s := ‘C:DownLoaddeneme.html’; SHAddToRecentDoc...