DELPHİ // Yardımcı Kodlar

var
DateTime : TDateTime;
str : string;
begin
DateTime := Time;
str := TimeToStr(DateTime);
Label1.Caption := str;
end;

begin
Showmessage('NOTEPAD  V 1.0'+#10+#10+
            'ByStres'+#10+
            'xxxx.com'+#10+
            'Dil : Delphi'+#10+#10+
            'Copyright ByStres');
end;

 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;

ShellExecute(Handle, 'open', 'http://www.delphikursu.com',  nil, nil,sw_ShowMaximized);

 var
a:integer;
begin
a:=application.MessageBox('Programdan Çikmak Istiyormusunuz ?','Çikis',mb_yesno+mb_iconexclamation);
if a=idyes then close;
end;

procedure TForm1.Button1Click(Sender: TObject);

begin

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

end;

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.

(1000milisaniye = 1 saniye)
Sleep(10000);

SendMessage(Listbox1.Handle, LB_SetHorizontalExtent, 1000, Longint(0));

if GlobalFindAtom(’PROGRAM_RUNNING’) = 0 then 
atom := GlobalAddAtom(’PROGRAM_RUNNING’) 
else 
begin 
MessageDlg(’Program zaten çalışıyor!’, mtWarning, [mbOK], 0); 
Halt; 
end;

GlobalDeleteAtom(atom);