Einzelnen Beitrag anzeigen

daywalker9

Registriert seit: 1. Jan 2010
Ort: Leer
594 Beiträge
 
Delphi XE3 Professional
 
#1

"ITaskbarList - Windows 7 wieder "freigeben

  Alt 27. Mai 2010, 14:35
Moin Leute,

ich benutzte hier das Interface ITaskbarList3 um den Status unter Windows 7 anzuzeigen. NUn wenn ich die Form schließe, ist der Status noch zu sehen. Wenn ich dort nun
fTaskbarlist.SetProgressValue(application.handle,0,0) ; aufrufe bleibt der Status noch sichtbar.

Delphi-Quellcode:
var FTaskBarList : ITaskbarList3;
begin if fTaskbarList=NIL then
        begin if Succeeded(CoCreateInstance(CLSID_TaskbarList, nil, CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER, IUnknown, fTaskBarList)) then
                begin
                  if Succeeded(fTaskbarList.HrInit) then
                    begin
                      fTaskbarList.SetProgressState(application.Handle,TBPF_NORMAL);
                      fTaskbarList.SetProgressValue(application.Handle,i,max);
                    end;
                end
              else
                fTaskbarList := NIL;
        end;
end;

Habt ihr eine Idee, wie ich den Status wieder dort rausbekomme?
Lars
  Mit Zitat antworten Zitat