WinSAT

[Razor]

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]