IDE получить имя текущего проекта [Delphi, Windows]
ORMADA © (2005-07-18 10:06:00)
Доб день!
Хочу порлучить имя текущего проекта (xxx.dpr).
Думаю его как то можно получить через IOTAProject ?
пробовал так но чё-то нето :(
(BorlandIDEServices as IOTAProject
).GetModule(0).FileName;
ORMADA (2005-07-18 10:59:00) [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;
Наверх 
ЧАТ |
Орешник |
|
