Beiträge von BugFix

Dieser Code wird NUR von Windows 2003 Server unterstützt (evtl. auch höhere Serverversion), aber nicht von 2K, XP etc.

Falls ich mit GUIGetMsg arbeite, bevorzuge ich eine fußgesteuerte Schleife, denn ein Schleifeneintritt ist ja erwünscht/notwendig um überhaupt den Wert für die Abbruchbedingung erhalten zu können.

Do
$msg = GUIGetMsg()
Switch $msg
Case $ctrl
; ...
;..
EndSwitch
Until $msg = $GUI_EVENT_CLOSE

Hatte mal etwas ähnliches erstellt: extended TimerDiff()

Raupi : Du hast völlig recht - die Zeilen kannst du streichen, das hatte ich vergessen. Sie werden nur benötigt, wenn man Titelleiste und äußere Region in der GUI hat. Da das hier nicht der Fall ist, können sie entfernt werden.

Hi,
ich hab gerade die neue Version 3.3.0.0 angeschaut und fand ein Winapi-Skript ganz interessant. Ich habe das Bsp. mal etwas entschlackt und leicht verändert.
Ergebnis ist eine nicht sichbare GUI - nur die Button werden angezeigt. Das Skript ist jetzt für GUI mit POPUP-Style angepaßt. Soll die Titelleiste angezeigt werden, müssen die Parts für die Systemmetrics wieder integriert werden (s. Bsp. bei _WinAPI_CreateRoundRectRgn).

Hab ich dir doch reinkopiert.

Falsche und ungenügende Parameter:

Zitat

Declare Function LockFile Lib "kernel32.dll" Alias "LockFile" (ByVal hFile As DWord, ByVal dwFileOffsetLow As DWord, ByVal dwFileOffsetHigh As DWord, ByVal nNumberOfBytesToLockLow As Long, ByVal nNumberOfBytesToLockHigh As Long) As Long

Das geht dann so:

$hWaitCurs = _LoadCursorFromFile(@WindowsDir & "\cursors\cross.cur")
If _SetSystemCursor($hWaitCurs, $OCR_IBEAM) Then MsgBox(0, '', 'Cursor gesetzt')

Func _SetSystemCursor($hCur, $id)
Local $ret = DllCall("user32.dll", "int" ,"SetSystemCursor","int",$hCur,"int",$id)
Return $ret[0]
EndFunc

Func _LoadCursorFromFile($lpFileName)
Local $ret = DllCall("user32", 'long', "LoadCursorFromFileA", 'str', $lpFileName)
Return $ret[0]
EndFunc

Ich hab grad nochmal deinen ersten Post gelesen - ist das Tool, von dem du sprichst, ein Autoitskript? Dann kannst du natürlich viel einfacher den Cursor setzen mit GUISetCursor und GUICtrlSetCursor

Du mußt den Cursorpfad angeben

@WindowsDir & '\Cursors\cross.cur'

Und Kombinationen von Parametern immer mit BitOr($par1,$par2) und nicht $par1+$par2.

Weiterhin solltest du das Handle des alten Cursors auffangen um ihn zurücksetzen zu können.

$hOldCursor = _WinAPI_SetCursor($cur)

Schau dir mal diese Funktionen an:

#Include <WinAPI.au3>
_WinAPI_GetCursorInfo()
_WinAPI_SetCursor($hCursor)

Wenn es Systemprogramme sind benötigst du keine Pfadangabe, für alle anderen schon. Existieren zum Programm z.B. INI-Dateien(od. andere Daten auf die das Prog zugreifen will) im Programmpfad, so ist auch das Arbeitsverzeichnis anzugeben.

ShellExecute ( "filename" [, "parameters" [, "workingdir" [, "verb" [, showflag]]]] )

Eine angenehme Hilfe zur MsgBox findest du in Scite mit <Alt+W> oder auch hier: MsgBox - alle Parameter auf einen Blick

Zitat von Keyle

Was meinst du mit linear und nichtlinear ich kann mir darunter jetzt nichts vorstellen

Linear heißt: 1 Pixel des Desktop entspricht zum Bsp. dem Wert 25 der von deinem Pad kommt, 2=50, 3=75, 4=100 etc.
Nicht-Linear: 1=25, 2=70, 3=130 etc.

Wie anno2008 schon richtig sagte sind mehr Koordinaten und vor allem deren Entsprechung auf dem Desktop notwendig.
Es kann sein, dass deine Parameter linear oder auch nichtlinear sind. Du brauchst also auf jeden Fall Basiswerte für alle Desktopecken und die Mittelposition. Dann kann man erkennen, wie die Werte sich verhalten.

Vielleicht hilft dir ja das: Erweiterte Dateiinfo (eine Datei od. alle eines Ordners)

Zitat von bernd670

Was für eine IE-Version läuft den auf dem Server?

Ich glaube, ich habe inzwischen IE 6 aufgespielt, bin mir aber nicht ganz sicher. Da der Server ausschließlich im Intranet läuft, ist die Konfiguration der Internetkomponenten absolut nebensächlich.

Habs jetzt noch nicht getestet, aber mal ein Tipp:
Du kannst deine Case-Abfrage zum Speed vereinfachen.

; statt:
Case $in > 1023 And $in< 1048575

; reicht völlig:
Case $in< 1048575
; denn falls $in < 1024, wird ja schon der Code im vorhergehenden
; Case-Zweig (Case $in < 1024) ausgeführt
; dasselbe bei $out

Hi,
da du noch neu bei uns bist, ein Hinweis: Exe-Dateien wird sich wohl kaum jemand herunterladen. Oder führst du einfach so fremde exe aus?
Und der Sinn dieses Forums liegt u.a. darin, die Lösungswege aufzuzeigen - sein Skript also in der Source zu posten.

Zitat

Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Zitat

fWinIni Erwartet "0" für keine Aktion oder eine der "fWinIni"-Konstanten, die den Vorgang beschreiben.

Ich vermute, da liegt der Hund begraben - du übergibst 0 ==> keine Aktion.

Edit: Ich glaube, dass wars wohl doch nicht, die fWinIni-Parameter sind absolut uninteressant.

Zitat

Const SPIF_SENDWININICHANGE = &H2 'Benachrichtet alle TopLevel Fenster über die Änderung und der Änderung in der Win.ini
Const SPIF_UPDATEINIFILE = &H1 'Speichert die Änderung der Win.ini, ändernungen werden sind so nach einem Neustart immer noch wirksam