Ich möchte mit einem Wizard innerhalb der IDE Projektinformationen auslesen. Bei der Abfrage von
Resource-Einträgen bekomme ich einen Zugriffsfehler. Kann mir jemand weiterhelfen?
########### code #####################
if Assigned(IProject) then
begin
IProjectResource:=GetProjectResource(IProject);
if Assigned(IProjectResource) then
begin
ProjektInfoDlg.Memo1.Lines.Add(
Format('GetEntryCount = %d ', [IProjectResource.GetEntryCount]));
II := 0;
for II:=0 to IProjectResource.GetEntryCount-1 do
begin
IResourceEntry:=IProjectResource.GetEntry(II);
if Assigned(IResourceEntry) then
begin
if IResourceEntry.GetHeaderValue(hvDataVersion,VI) then
begin
ProjektInfoDlg.Memo1.Lines.Add(
Format('hvDataVersion = %d ',[VI]));
end;
VI := IResourceEntry.DataSize;
ProjektInfoDlg.Memo1.Lines.Add(
Format('Datasize = %d ',[VI]));
AS1:=String(IResourceEntry.GetResourceName);//Zugriffsfehler
AS1:=StrPas(IResourceEntry.GetResourceName);//Zugriffsfehler
ProjektInfoDlg.Memo1.Lines.Add(AS1);
end;
end;
end;
end;
############# code ende #################
Comment