Entschuldigung, das habe ich überlesen.
// EDIT:
Klar, das Load wird ja in einem eigenen Thread aufgerufen...
Und
OLE muss pro Thread initialisiert werden. Sprich:
Delphi-Quellcode:
procedure TSplashImagesLoader.Execute;
begin
if not Assigned(Form) or not Assigned(FImages) then
Exit;
Synchronize(FForm.ShowSplashLoading);
try
OleInitialize(nil);
try
FImages.Load;
finally
OleUninitialize;
end;
finally
Synchronize(FForm.HideSplashLoading);
end;
end;
// EDIT2:
Ich habe es mal in die
QC gepackt:
http://qc.embarcadero.com/wc/qcmain.aspx?d=124025