# Saat yap

var
DateTime : TDateTime;
str : string;
begin
DateTime := Time;
str := TimeToStr(DateTime);
Label1.Caption := str;
end;
# ßuton'a Tıklandığında Mésaj Vér

begin
Showmessage('NOTEPAD  V 1.0'+#10+#10+
            'ByStres'+#10+
            'xxxx.com'+#10+
            'Dil : Delphi'+#10+#10+
            'Copyright ByStres');
end;
# Ağ Ortamında Makinanın İsmini ßulma

 procedure TForm1.Button1Click(Sender: TObject);
var
  Makine_ismi:array[0..255] of char;
  BufferSize:DWORD;
begin
  BufferSize:=SizeOf(Makine_ismi);
  GetComputerName(@Makine_ismi,BufferSize);
  Showmessage(Makine_ismi);
end;
# ßir Wéb Adresi Açma

uses kısmına Shellapi unitini ekleyin;
ShellExecute(Handle, 'open', 'http://www.delphikursu.com',  nil, nil,sw_ShowMaximized);
# Çıkış Mésajı

 var
a:integer;
begin
a:=application.MessageBox('Programdan Çikmak Istiyormusunuz ?','Çikis',mb_yesno+mb_iconexclamation);
if a=idyes then close;
end;
# Duvar Kağıdını Déğiştirmé

ßir ßut0n oLuşturuy0ruz Vé ..

procedure TForm1.Button1Click(Sender: TObject);

begin

SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(’C:\\Resim\\Btmap.bmp’), SPIF_SENDWININICHANGE);

end;
# Program Açılışına Şifré K0yma

F0rumun 0ncréaté 0layına...
procedure TForm1.FormCreate(Sender: TObject);
var
x,b:string;
begin
b:=’Buraya şifre giriniz’;
x:=inputbox(’Programa Giriş’,’Programa girmek için şifreyi Giriniz:’,’’);
if x=b then
application.messagebox(’Programa Girişiniz Onaylandı.Tebrikler ..!’,’Tebrikler’,mb_ok+mb_defbutton1)
else
halt;
end;
end.
# Pr0gramı ßékLétmé 

(1000milisaniye = 1 saniye)
Sleep(10000);
# List ß0x’a Yatay Kaydırma Çubugu Êklémé

F0rmunuzun OnCreate olayına aşağıdaki kodu ékléyin. 

SendMessage(Listbox1.Handle, LB_SetHorizontalExtent, 1000, Longint(0));
# Yaptıgınız Pr0gram 1 kéz çalışsın istiy0rsanız;

F0rmun 0nCreate 0layına aşağıdaki k0du ékléyin: 

if GlobalFindAtom(’PROGRAM_RUNNING’) = 0 then 
atom := GlobalAddAtom(’PROGRAM_RUNNING’) 
else 
begin 
MessageDlg(’Program zaten çalışıyor!’, mtWarning, [mbOK], 0); 
Halt; 
end;
vé f0rmun 0nDestr0y 0layına da aşağıdaki k0du ékléyin. Hépsi ßu Kadar. 

GlobalDeleteAtom(atom);