44 procedure SaveFinishedSynching; inline;

    44 procedure SaveFinishedSynching; inline;

    45 

    45 

    46 implementation

    46 implementation

    47 uses uVariables;

    47 uses uVariables;

    48 

    48 

    51 function isPhone: Boolean; inline;

    49 function isPhone: Boolean; inline;

    52 begin

    50 begin

    53 {$IFDEF IPHONEOS}

    51 {$IFDEF IPHONEOS}

    54     exit(isApplePhone());

    52     exit(isApplePhone());

    55 {$ENDIF}

    53 {$ENDIF}

    56     exit(false);

    54     exit(false);

    57 end;

    55 end;

    58 

    56 

    59 procedure performRumble; inline;

    57 procedure performRumble; inline;

    60 begin

    59 begin

    61 {$IFDEF IPHONEOS}

    60 {$IFDEF IPHONEOS}

    62     AudioServicesPlaySystemSound(kSystemSoundID_Vibrate);

    61     AudioServicesPlaySystemSound(kSystemSoundID_Vibrate);

    63 {$ENDIF}

    62 {$ENDIF}

    64 end;

    63 end;