Changelog:
- Geändert: @Output$: Wenn 0 übergeben wird, dann wird als Rückgabewert der jeweiligen Funktion die benötigte Länge für die Allokierung des Speichers zurückgegeben.
@HeX0R
Ah ok, danke für die Information.
Also verstehe ich das so dann richtig ?RSBasic hat geschrieben:PB.Ex Mail 1.0.9.0 wurde veröffentlicht.
Changelog:
- Geändert: @Output$: Wenn 0 übergeben wird, dann wird als Rückgabewert der jeweiligen Funktion die benötigte Länge für die Allokierung des Speichers zurückgegeben.
Code: Alles auswählen
; Erst Grösse ermitteln
Length = MailDirectoryEntryNameEx(ID, #Null, @ErrorOutput$)
; Speicher reservieren
*Output = AllocateMemory(Length)
; Nochmal um den Puffer zu füllen
Result = MailDirectoryEntryNameEx(ID, *Output, @ErrorOutput$)
Das diesbezügliche Standard-Verhalten von Thunderbird (aktuelle Version 60.6.1) hängt ab von der Einstellung unterHeX0R hat geschrieben:Das ist dann eher eine Eigenart von Thunderbird, das brauchst Du so natürlich nicht zu unterstützen.
Ich muss jetzt nur noch herausfinden wieso der TB das so macht, früher hat er das definitiv nicht so gehandhabt.
Code: Alles auswählen
Procedure.s CheckNetFrameWork4_5()
Protected Result.s, hKey, lpcbData, ReleaseInfo.l, lpType, Path.s, Key.s
;Source: https://docs.microsoft.com/de-de/dotnet/framework/migration-guide/how-to-determine-which-versions-are-installed
Path = "SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full"
Key = "Release"
If RegOpenKeyEx_(#HKEY_LOCAL_MACHINE, Path, 0, #KEY_READ, @hKey) = #ERROR_SUCCESS
lpcbData = 4
RegQueryValueEx_(hKey, @Key, #Null, @lpType, @ReleaseInfo, @lpcbData)
RegCloseKey_(hKey)
EndIf
If ReleaseInfo
Select ReleaseInfo
Case 378389
Result = "4.5"
Case 378675, 378758
Result = "4.5.1"
Case 379893
Result = "4.5.2"
Case 393295, 393297
Result = "4.6"
Case 394254, 394271
Result = "4.6.1"
Case 394802, 394806
Result = "4.6.2"
Case 460798, 460805
Result = "4.7"
Case 461308, 461310
Result = "4.7.1"
Case 461808, 461814
Result = "4.7.2"
Case 528040, 528209, 528049, 528372
Result = "4.8"
Default
Result = ">= 4.5"
EndSelect
EndIf
ProcedureReturn Result
EndProcedure