Hallo Christian
Ich bekomme eine Fehlermeldung "Diese Methode oder Eigenschaft existiert
nicht: Declare Function SetWindowModified Lib kCarbonCompatibility (window
As WindowPtr, modified As Integer) As Integer. kCarbonCompatibility ist gelb
markiert. Wieso kennt er kCarbonCompatibility nicht? Arbeite auf Intelmac
OS 10.5.6.
#if TargetMacOS then
Dim osErr As Integer
dim v as variant
#if TargetCarbon then
Declare Function SetWindowModified Lib kCarbonCompatibility (window As
WindowPtr, modified As Integer) As Integer
#else
Declare Function SetWindowModified Lib "WindowsLib" (window As
WindowPtr, modified As Integer) As Integer
#endif // TargetCarbon
v=b
osErr=SetWindowModified(w,v)
#endif // TargetMacOS
Gruss
Mike
