Some progress i also included the pass file for other to see if it works.WIN7/VISTA is a must to test this.
This hopfully will start the winsat routine.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i:IWinSATInitiateEvents;
k:_RemotableHandle;
l:hresult;
s:string;
begin
CInitiateWinSAT1.Create(SELF);
CInitiateWinSAT1.DefaultInterface.InitiateFormalAssessment( i,k) ;
i.WinSATComplete(l,pchar(s));
end;
Good news Leute this works as it turns off Aero and writes
XML to the system.
[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]