@Sir Rufo
Nicht die
Av ist das Problem.
Du liegst zwar grundsätzlich Richtig, aber im speziellem Fall wohl nicht(siehe Source-Code von TResurcestrem).
Delphi-Quellcode:
constructor TResourceStream.Create(Instance: THandle; const ResName: string; ResType: PChar);
begin
inherited Create;
Initialize(Instance, PChar(ResName), ResType, False);
end;
Ich vermute mal das es hier knallt(ungeprüft):
Delphi-Quellcode:
destructor TResourceStream.Destroy;
begin
UnlockResource(HGlobal); [COLOR="MediumTurquoise"]<-[/COLOR]
FreeResource(HGlobal); [COLOR="MediumTurquoise"]<-[/COLOR]
inherited Destroy;
end;