Delphi Tutorial

Get program directory.

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := ExtractFilePath(Application.exename);
end;

This entry was posted on Thursday, February 15th, 2007 at 11:40 am and is filed under Files. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.