델파이에서 프로그램이 있는 패스 얻기

델파이에서 프로그램이 있는 패스(디렉토리) 얻기

procedure TForm1.FormCreate(Sender: TObject);
var
  CurrentPath : array [0..256] of char;
begin
  // 프로그램이 있는 현재의 디렉토리 정보 얻기
  GetCurrentDirectory(sizeof(CurrentPath), CurrentPath);
  Form1.Caption := CurrentPath;

end;