Okay, ich werde die kommenden Tage mal ein kleines Tutorial zu diesem Thema schreiben und dann wollen wir mal hoffen, daß es dann auch bei allen wie gewünscht geht. Zum Thema "Band bleibt nicht nach Neustart" einfach wie folgend die entsprechenden Methoden füttern:
Delphi-Quellcode:
function TDpDeskBar.GetSizeMax(out cbSize: Largeint): HResult;
begin
// DebugWindow('GetSizeMax');
cbSize := 256;
Result := S_OK;
end;
function TDpDeskBar.IsDirty: HResult;
begin
// DebugWindow('IsDirty');
Result := S_OK;
end;
function TDpDeskBar.Load(const stm: IStream): HResult;
begin
// DebugWindow('Load');
Result := S_OK;
end;
function TDpDeskBar.Save(const stm: IStream; fClearDirty: BOOL): HResult;
begin
// DebugWindow('Save');
Result := S_OK;
end;