#Delphi: Getcurrent Directory

29 12 2009

Program ini akan menunjukkan dimana aplikasi tersebut dijalankan, dalam hal ini adalah path, atau di directory mana program ini berada.

Komponen : Form & Button

Source Code :


procedure TForm1.Button1Click(Sender: TObject);
var
dir : string;
begin
// Get the current directory
dir := GetCurrentDir;
ShowMessage('Current directory = '+dir);
end;

ScreenShoot :



Reff : DelphiBasics


Actions

Information

2 responses

19 05 2011
pH0

Tengkiu atas pencerahannya gan..
Simple & praktis🙂

19 05 2011
heru widakdo

Thanks jg atas komentar nya…..

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s




%d bloggers like this: