JvBrowseForFolderDialog in Dll Funktion

[Robert Marquardt]

Delphi-Quellcode:

function OpenFolderDialog(Title, StatusText: PChar;
  FolderName: PChar): Integer; stdcall;
var
  dlgOrdner: TJvBrowseForFolderDialog;
  LFolder: string;
begin
  Result := 0;
  dlgOrdner := TJvBrowseForFolderDialog.Create(nil);
  try
    dlgOrdner.Title := Title;
    dlgOrdner.StatusText := StatusText;
    LFolder := FolderName;
    LFolder := Trim(LFolder);
    if LFolder <> '' then
      dlgOrdner.Directory := LFolder;

    if dlgOrdner.Execute then
    begin
      Result := 1;
      LFolder := ConvertPathToUNC(dlgOrdner.Directory);
    end;
 
    StrCopy(FolderName, PChar(LFolder));
  finally
    dlgOrdner.Free;
  end;
end;