Mit der hatte ich als ich die Frage gelesen hatte schon kurz experimentiert, aber da ich XP nur noch virtuell und auf dem Laptop nutze hatte ich da nicht viel versucht. Diese Übersetzung scheint nicht korrekt zu sein:
Delphi-Quellcode:
function SetSystemVisualStyle(pszFilename, pszColor, pszSize: PChar;
dwReserved: Integer): Integer; stdcall; external 'uxtheme.dll';