DELPHİ İçin Kullanılan Yardımcı Kodlar // 38hacker38

'Adige · 14 Nis 2017

Saat yap

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

Buton'a Tıklandığında Mesaj Ver

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 Bulma

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;

Bir Web Adresi Açma

uses kısmına Shellapi unitini ekleyin;

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

Çıkış Mesajı

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ı Değiştirme

procedure TForm1.Button1Click(Sender: TObject);

begin

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

end;

Program Açılışına Şifre Koyma

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.

Programı Bekletme

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

# List Boxa Yatay Kaydırma Çubugu Ekleme

Formunuzun OnCreate olayına aşağıdaki kodu ekleyin.

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

Yaptıgınız Program 1 kez çalışsın istiyorsanız;

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

ve formun onDestroy olayına da aşağıdaki kpdu ekleyin. Hepsi bu Kadar.

GlobalDeleteAtom(atom);

DELPHİ İçin Kullanılan Yardımcı Kodlar // 38hacker38

'Adige

Administrator

Sosyal medya sayfalarımız