Código Delphi [-]function SetWindowTheme(hWnd: Cardinal; Optional, pszSubAppName: PChar): Cardinal; stdcall external 'uxtheme'; procedure TForm1.Button1Click(Sender: TObject); begin SetWindowTheme(Handle, ' ', ' '); end;
function SetWindowTheme(hWnd: Cardinal; Optional, pszSubAppName: PChar): Cardinal; stdcall external 'uxtheme'; procedure TForm1.Button1Click(Sender: TObject); begin SetWindowTheme(Handle, ' ', ' '); end;