Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
26. Nov 2019
.. gut was dann passiert:
Pfad +'desktop.ini'
hier trailingPathDelimiter anfügen
Pfad+'desktop.ini\' hier ist also eine Pfad aus dem Dateinamen geworden.
extractFilePath(Pfad+'desktop.ini\') -> Pfad+'desktop.ini\'
Grüße
Klaus
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
26. Nov 2019
function TOpenFileFrame.ChangeFolderIcon(LDeskIniPath, LBmpFile: String; IconIndex: Integer): Boolean;
var desktopini: TIniFile; LDesktopIniParent : String;
begin
LDesktopIniParent := ExtractFilePath(LDeskIniPath);
LDeskIniPath := IncludeTrailingPathDelimiter(LDeskIniPath);
ShowMessage('LDeskIniPath := ' + LDeskIniPath +sLineBreak+
'LDesktopIniParent := ' +...
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
26. Nov 2019
.. was steht denn in dem Parameter/Argument LDeskIniPath?
Dem Parameter fügst Du noch ein "\" am Ende hinzu.
ExtractFilePath gibt Dir alles bis zum letzten "\" zurück.
Grüße
Klaus