Programmaufruf über Stringgadget

[c4s]

@ts-soft
Ist es so nicht korrekter?

Code: Alles auswählen

Procedure.s GetSpecialFolder(CSIDL)
  Protected *itemid.ITEMIDLIST
  Protected location.s = Space(#MAX_PATH)

  If SHGetSpecialFolderLocation_ (0, CSIDL, @*itemid) = #NOERROR
    If SHGetPathFromIDList_(*itemid, @location) = #True
      If Right(location, 1) <> "\" : location + "\" : EndIf
    EndIf
    CoTaskMemFree_(*itemid)
  EndIf

  ProcedureReturn Trim(location)
EndProcedure

CoTaskMemFree_() wird somit auch aufgerufen, wenn SHGetPathFromIDList_() fehlgeschlagen hat.

[ts-soft]

@c4s
Korintenkacker
Aber das Trim ist total überflüssig und kostet wertvolle Lebenszeit

[c4s]

Wenn SHGetSpecialFolderLocation_() nicht funktionieren sollte, gibt die Procedure 260 Leerzeichen aus, daher Trim().

[ts-soft]

Wenn SHGetSpecialFolderLocation_() nicht funktionieren sollte, gibt die Procedure 260 Leerzeichen aus, daher Trim().

Da die Wahrscheinlichkeit des Fehlschlags weit unter ein Promille liegt, wäre ein Trim,
der laufend unnötig ausgeführt wird, aber trotzdem unnötig, wenn man es so macht:

Code: Alles auswählen

Procedure.s GetSpecialFolder(CSIDL)
  Protected *itemid.ITEMIDLIST
  Protected location.s = Space(#MAX_PATH)

  If SHGetSpecialFolderLocation_ (0, CSIDL, @*itemid) = #NOERROR
    If SHGetPathFromIDList_(*itemid, @location) = #True
      If Right(location, 1) <> "\" : location + "\" : EndIf
    Else
      location = ""
    EndIf
    CoTaskMemFree_(*itemid)
  EndIf

  ProcedureReturn location
EndProcedure

[c4s]

Aber was passiert, wenn SHGetSpecialFolderLocation_() fehlschlägt? Dann lieber wie folgt. Und außerdem habe ich festgestellt, dass #S_OK zurückgegeben wird:

Code: Alles auswählen

Procedure.s GetSpecialFolder(CSIDL)
	Protected *itemid.ITEMIDLIST
	Protected location.s

	If SHGetSpecialFolderLocation_ (0, CSIDL, @*itemid) = #S_OK
		location = Space(#MAX_PATH)
		If SHGetPathFromIDList_(*itemid, @location) = #True
			If Right(location, 1) <> "\" : location + "\" : EndIf
		Else
			location = ""
		EndIf
		CoTaskMemFree_(*itemid)
	EndIf

	ProcedureReturn location
EndProcedure

[ts-soft]

Dir ist klar, das #S_OK und #NOERROR beide null sind

[c4s]

Dir ist klar, das #S_OK und #NOERROR beide null sind

Dann hättest du gleich

Code: Alles auswählen

If SHGetSpecialFolderLocation_ (0, CSIDL, @*itemid) = 0

schreiben können.