Ambil Nama File nya Saja

disini saya akan berbagi pengalaman dengan semua rekan-rekan delphier tentang bagaimana cara mengambil nama file dari sebuah direktori ataupun sub-sub direktori tanpa mengikut sertakan alamat dari direktori atau sub-sub nya . tanpa banyak kata-kata yuk kita mulai ....

1.Seperti biasa buka Project baru

2.pada form1 tambahkan Edit1, Edit2, Button1,Button2,OpenfileDialog1

ubahlah ...

Komponen	Ket
Edit1	Propery text (kosongkan)
Edit1	Propery text (kosongkan)
Button1	Propery caption (kosongkan)
Button2	Propery Caption (kosongkan)

3.masuk pada code editor dan tambahkan shellApi pada deklarasi Uses;

4.buatlah fungsi "AmbilFileAja", kode lengkap

function AmbilFileAja(const sFileName: string): string;
var
SHFileInfo: TSHFileInfo;
begin
if SHGetFileInfo(PChar(sFileName),
0,
SHFileInfo,
SizeOf(SHFileInfo),
SHGFI_DISPLAYNAME) <> 0 then
Result := string(SHFileInfo.szDisplayName)
else
Result := sFileName;
end;

5.Double klik pada Button1 hingga muncul kode editor OnClick lalu masukan kode berikut ...

if OpenDialog1.Execute then

Edit1.Text:=OpenDialog1.FileName;

6.Double klik pada Button2 hingga muncul kode editor OnClick lalu masukan kode untuk memanggil fungsi AmbilFileAja. kode lengkapnya :

Edit2.Text := AmbilFileAja(Edit1.Text);

nah nanti hasil dari fungi AmbilFileAja akan terlihat di Edit2 ....