procedure TInformationFrm.FormActivate(Sender:
TObject);
{ необходимо: StringGrid1 (2 колонки, масса
строк), Label1, Label2 }
var i,j: Integer;
Tmp: String;
begin
StringGrid1.Cells[0,0] := 'модулей:';
StringGrid1.Cells[1,0] := 'форм:';
if ToolServices <> nil then with ToolServices
do
begin
Label1.Caption := ExtractFileName(GetProjectName); { простое имя }
Label2.Caption := GetProjectName; { полное
правильное имя пути }
for i:=0 to GetUnitCount
do
begin
Tmp := ExtractFileName(GetUnitName(i));
StringGrid1.Cells[0,i+1] := Tmp;
Tmp := ChangeFileExt(Tmp,'.DFM');
for j:=0 to GetFormCount
do
if ExtractFileName(GetFormName(j)) = Tmp then
StringGrid1.Cells[1,i+1] := Tmp
end
end
end;