Declare Function xxx Lib "user32" crasht Linux- Client

[Tode]

Ich habe eine Script- Library, die einige Funktionen wie oben deklariert.

Diese Deklarationen bringen (logischerweise) den Linux- Client zum Absturz.

Wie mache ich das, dass der diese Declarationen (und die entsprechenden Funktionen) nur ausführt, wenn ClientType = Windows?

Es handelt sich sowieso nur im Komfort- Funktionen, auf die die wenigen Linux- User dann halt verzichten müssten, bis ich einen Ersatz dafür gefunden habe...

Thanx
Tode

[eknori]

Das Declare sollte keine Probleme bereiten. Allerdings wird der Aufruf der Funktion den Client crashen.

Du kannst die WIN relevanten Teile z.B. mit einem

If isDefined("WINDOWS") Then
 ... Code
else
 ... mach nix

end if

entsprechend ausklammern

[Jeremias]

Und wenn Du dann OS-spezifische Funktionsaufrufe machen willst :

Code

Select Case s.Platform
Case "Windows/32":
'Aufruf der Windows-Funkton
Case "Macintosh":
'Aufruf der Mac-Funktion
Case "Linux":
'Aufruf der Linux-Funktion	
Case Else : Messagebox "CTI-Funktion auf dieser Plattform nicht unterstützt."
End Select		

Gruß

[Axel]

Eventuell hilft dir auch %If weiter.

Code

Dim winTitle As String * 80
%If WIN16                      ' 16-bit Windows
   Dim activeWin As Integer    ' Window handles are Integer.
   Declare Function GetActiveWindow% Lib "User" ()
   Declare Function GetWindowText% Lib "User" _
         (ByVal hWnd%, ByVal lpstr$, ByVal i%)
%ElseIf WIN32                  ' 32-bit Windows
   Dim activeWin As Long       ' Window handles are Long.
   Declare Function GetActiveWindow& Lib "User32" ()
   Declare Function GetWindowText% Lib "User32" _
          Alias "GetWindowTextA" _
      (ByVal hWnd&, ByVal lpstr$, ByVal i&)
%End If

Axel

[Tode]

Danke für die Zahlreichen Tipps, bin gerade dran das mal auszuprobieren... Ich dachte, ich müsste die Declares schon verhindern, die anderen Sachen waren mir (zumindest Teilweise) bekannt...

Thanx
Tode