procedure TForm1.Button1Click(Sender: TObject);
begin
//menunjukkan direktori aktif
ShowMessage(ExtractFilePath(ParamStr(0)));
//set direktori
if SetCurrentDir('C:\MyDIR') then
ShowMessage('berhasil')
else
ShowMessage('gak berhasil');
end;
hope it helps ...
B 1 LL
�>>Bagaimana ya caranya jika ingin mengambil path directory pada tempat
�>applikasi yang sedang dijalakan (agar pemaggilan path/directori tidak
�>default), ada yang punya ide ?
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/CBxunD/vN2EAA/xGHJAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
