Delphi : Mengecek Ukuran File

pada posting sebelumya yang membahas tentang cara mengubah backround toolbar maka postingan kali ini yaitu Untuk mengetahui ukuran suatu file, Delphi telah menyediakan fungsi
FileSize(var F) : integer
Pada contoh program berikut, saya menggunakan fungsi Windows API
GetFileSize( ).
Contoh Program Delphi sebagai berikut:
Langkah pertama : desain form dengan popertiey 2 Button , Edit1 , OpenDialog
Langkah kedua isikan listing program sebagai berikut:

Procedure Tfrom. Button1Click(sender:Tobject);
var FileHendle : integer;
HightOrderSize :^Dword;
LowOrderSize : Dword;
begin
FileHendle:= 0;
try
FileHendle:= Fileopen(Edit1.text, fmOpenRead);
if FileHendle=-1 then
begin
ShowMessage('gagal membuka file');
exit;
end;
HightOrderSize:=nil;
LowOrderSize:=GetFilesize(fileHendle, HightOrderSize);
if LowOrderSize = INVALID_FILE_SIZE then
ShowMessage('gagal mendapatkan ukuran file')
else
if HightOrderSize <> nil then
Application.MessageBox('Ukuran file > 4,39 Gbyte' , 'info ukuran file', MB_OK or MB_ICONINFORMATION);
else
Application.MessageBox(PChar('Ukuran file : ' + IntToStr(LowOrderSize) + 'Byte') , 'info ukuran file' , MB_OK or MB_ICONINFORMATION);
finally
FileClose(FileHendle);
end;
end;

Procedure Tform. Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit1.Text := OpenDialog1.FileName;
end;


untuk lebih jelasnya silahkan anda download tutorial lengkap delphi ini

Read More

Delphi: Memfilter Input Pada Editbox

Agar EditBox hanya bisa menerima input karakter tertentu saja. Sebagai contoh agar EditBox hanya bisa diisi dengan bilangan, bukan karakter huruf.

Program berikut menunjukkan cara agar EditBox hanya bisa diisi dengan bilangan heksadesimal, yakini (0..9) , (A..F) , atau (a..f).

Procedure TFrom1.Edit1KeyPress (sender: TObject; Var Key: Char);
begin
if not(((Key>#48) and (key<=#57)) 0r ((key>=#65) and (key<=#70)) or (key>=#97) and (key<=#102)) or (key=#8)) then key:= #0;
end;

mau lebih lengkap Download aja tutorial lengkapnya

Read More

Delphi : Mengubah Backroud Toolbar windows

Program ini menjelaskan tentang mengubah background toolbar windos Explorer dengan gambar bitmap. Yang dilakukan program ini sangat sederhana, yakni memberikan data value BackBitmapShell pada key HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbat dan nilainya merupakan path file bitmap yang digunakan.
Pada Fom rancang 2 Button dan poperty Dialog dengan mengambil OpenPictureDialog, dan juga EditText

Ini Listing program selengkapnya:

Procedure Tform1.Button1Click(Sender:TObject);
begin
if OpenPictureDialog1.Execute then
Edit1.Text:=OpenPicutreDialog1.FileName;
end;

Procedure Tfrom1.Button2Click(Sender:TObject);
var Register:Tregister;
begin
Register:=Tregister.create;
Register.RootKey:=HKEY_CURRENT_USER;
try
try
Register.OpenKey('\Software\Microsoft\Internet Explorer\'+ 'Toolbar',True);
Register.WriteString('BackBitmapShell',Edit1.Text);
ShowMessage('Berhasil mengubah background toolbar'+#13+'Untuk melihat hasilnya,buka'+
' "Windows Explorer" baru.');
Except on ERegistryException do
ShowMessage('Gagal mengubah background toolbar explorer');
end;
Finally
Register.CloseKey;
Register.Free;
end;

Selamat mencoba>>>
mau lebih lengkap download Disini

Read More