Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c