IDE получить имя текущего проекта

← →
ORMADA © (2005-07-18 10:06) [0]

Доб день!
Хочу порлучить имя текущего проекта (xxx.dpr).
Думаю его как то можно получить через IOTAProject ?
пробовал так но чё-то нето :(
(BorlandIDEServices as IOTAProject ).GetModule(0).FileName;

← →
ORMADA © (2005-07-18 10:59) [1]

Нашёл :)
если кому интересно
http://cpr.biblio-globus.ru/ExceptionViewerIDE.htm

function GetCurrentProject: IOTAProject;
var
Services: IOTAModuleServices;
Module: IOTAModule;
Project: IOTAProject;
ProjectGroup: IOTAProjectGroup;
MultipleProjects: Boolean;
I: Integer;
begin
Result := nil;
MultipleProjects := False;
Services := BorlandIDEServices as IOTAModuleServices;
for I := 0 to Services.ModuleCount - 1 do
begin
Module := Services.Modules[I];
if Module.QueryInterface(IOTAProjectGroup, ProjectGroup) = S_OK then
begin
Result := ProjectGroup.ActiveProject;
Exit;
end
else if Module.QueryInterface(IOTAProject, Project) = S_OK then
begin
if Result = nil then
// Found the first project, so save it
Result := Project
else
MultipleProjects := True;
// It doesn"t look good, but keep searching for a project group
end;
end;
if MultipleProjects = True then
Result := nil;
end;

IDE получить имя текущего проекта Найти похожие ветки