System(!)design ändern

[Delphi-Narr]

Ja, bei mir kommt die Meldung:
Der Prozedureinsprungspunkt "SetSystemVisualStyle" wurde in der DLL "uxtheme.dll" nich gefunden.

Schade...

[Luckie]

Groß- und Kleinschreibung beachten. Oder mal versuchen die API-Funktion dynamisch zu laden und dann den Fehler genau auswerten.

[jaenicke]

Ah, gefunden. Die ist gar nicht benannt beim Export in der DLL...
So kommt schon einmal kein Fehler beim Ausführen der Funktion (passieren tut bei mir grad aber auch nicht wirklich was ):

Delphi-Quellcode:

function SetSystemVisualStyle(pszFilename, pszColor, pszSize: PChar;
  dwReserved: Integer): Integer; stdcall; external 'uxtheme.dll' index 65;