Forum: Win32/Win64 API (native code)
Delphi
by PeterPanino,
9. Sep 2018
Dann war das ein Missverständnis. Welchen tieferen Sinn hatte denn die Frage?
Forum: Win32/Win64 API (native code)
Delphi
by PeterPanino,
9. Sep 2018
Diese Frage ist zutiefst menschlich, weil sie den Sinn und Zweck menschlichen Bemühens in den Mittelpunkt stellt.
Ich verweise deshalb auf den Sinn des Lebens und wünsche noch einen schönen Sonntag.
Forum: Win32/Win64 API (native code)
Delphi
by PeterPanino,
9. Sep 2018
Danke, ich schätze die Menschen bei Delphi-PRAXIS nicht nur wegen ihres Experten-Wissens, sondern auch wegen ihrer philosophischen Aussagen! :thumb:
Forum: Win32/Win64 API (native code)
Delphi
by PeterPanino,
9. Sep 2018
Danke, System.Variants.VarToStr ist noch besser, weil es bei einem NULL-Ergebnis von Get_Value automatisch einen Leerstring zurückliefert.
Forum: Win32/Win64 API (native code)
Delphi
by PeterPanino,
9. Sep 2018
So wäre es wahrscheinlich korrekt:
SN := string(SProp.Get_Value);
//if not VarIsNull(SN) then
if SN <> '' then
begin
Result := SN;
Break;
end;
Forum: Win32/Win64 API (native code)
Delphi
by PeterPanino,
9. Sep 2018
Die Frage ist vielmehr, ob der Fehler nicht schon in SN := SProp.Get_Value; liegt, wo einer String-Typ-Variablen (SN) ein Ergebnis vom Typ OleVariant zugewiesen wird. Wieso meckert da der Compiler nicht?
Forum: Win32/Win64 API (native code)
Delphi
by PeterPanino,
8. Sep 2018
Hier sind die anderen Abfragen:
CodeSite.Send('CPUScore', Format('%.2f', ));
CodeSite.Send('MemoryScore', Format('%.2f', ));
CodeSite.Send('GraphicsScore', Format('%.2f', ));
CodeSite.Send('D3DScore', Format('%.2f', ));
CodeSite.Send('DiskScore', Format('%.2f', ));
CodeSite.Send('WinSPRLevel', Format('%.2f', ));
Forum: Win32/Win64 API (native code)
Delphi
by PeterPanino,
8. Sep 2018
Jetzt funktioniert es! War ein kleiner Druckfehler ;-)
Forum: Win32/Win64 API (native code)
Delphi
by PeterPanino,
8. Sep 2018
Kann jemand bitte mal testen, ob das auf seinem System funktioniert? Auf meinem System funktioniert es nämlich nicht - Ergebnis ist immer -1,00
program TestConsoleApplication;
{$APPTYPE CONSOLE}
{$R *.res}
uses
CodeSiteLogging,
Forum: Win32/Win64 API (native code)
Delphi
by PeterPanino,
8. Sep 2018
In Windows gibt es den "Windows Experience Index (WEI) score".
Im Ordner "C:\Windows\Performance\WinSAT\DataStore\" gibt es mehrere Dateien mit dem Muster "<...> Formal.Assessment (Recent).WinSAT.xml", welche den System-Leistungsindex enthalten:
<SystemScore>7.5</SystemScore>
Weiß jemand, ob dieser System-Leistungsindex noch sonstwo gespeichert ist (Registry?), sodass man nicht mühsam...