مشخص کردن پوشه جاری

[karzari]

سلام
من می خوام پوشه ای رو که فایل exe اجرا شده را بدست بیارم

بعبارتی من یه سری فایل رو که در پوشه های اطراف برنامه هست رو با کد باز کنم.

مثلا فایل 1.bmp رو می خوام از پوشه image باز کنم برای همین اول باید شاخه جاری رو بدست بیارم

ممنون میشم اگه مثالی هم ارائه بدید.

[DAMAVAND]

procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
begin
s:=ExtractFileDir(Application.ExeName);
end;

[Vahid_moghaddam]

var
s : string;
begin
GetDir(0,s); { 0 = Current drive }
MessageDlg('Current drive and directory: ' + s, mtInformation, [mbOk] , 0);
end;

[farzad_az_shiraz]

سلام


edit1.text:=GetCurrentDir;