supi, hat funktioniert.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
type
TIsThemeActive =
function: bool;
stdcall;
var
Handle :THandle;
IsThemeActive : TIsThemeActive;
result :
string;
begin
result := '
kein XP';
Handle := LoadLibrary('
uxtheme.dll');
if Handle <> 0
then
begin
IsThemeActive := GetProcAddress(
Handle, '
IsThemeActive');
if IsThemeActive
then
result := '
neuer Stil'
else
result := '
alter Stil';
FreeLibrary(
Handle);
end;
ShowMessage(result);
end;
fuehrt auch auf allen anderen Systemen nicht zu nem Fehler
danke
Mat