Sorry for double post but i think i found the couse.I need only this and then i got it
Its bascily a function for tracing the progress and after the progress ends.
Delphi-Quellcode:
// *********************************************************************//
// Interface: IWinSATInitiateEvents
// Flags: (0)
// GUID: {262A1918-BA0D-41D5-92C2-FAB4633EE74F}
// *********************************************************************//
IWinSATInitiateEvents =
interface(IUnknown)
['
{262A1918-BA0D-41D5-92C2-FAB4633EE74F}']
function WinSATComplete(hresult: HResult; strDescription: PWideChar): HResult;
stdcall;
function WinSATUpdate(uCurrentTick: SYSUINT; uTickTotal: SYSUINT; strCurrentState: PWideChar): HResult;
stdcall;
end;
Delphi-Quellcode:
var
i:IWinSATInitiateEvents;
k:_RemotableHandle;
q:CoCInitiateWinSAT ;
v:integer;
s:string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
CInitiateWinSAT1.Create(self);
CInitiateWinSAT1.DefaultInterface.InitiateFormalAssessment( i,k) ;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
itotal,icurrent:integer;
sa:string;
begin
i.WinSATUpdate(icurrent,itotal,pchar(sa)) ; //CODE HALTS HERE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if itotal>0 then
progressbar1.Position:=100*icurrent div itotal;
end;
end;