спасибо...
но всё ещё немагу разобраться...в процедуре выбора каталога....
вот Эти строчки--->:
pidlBrowse := SHBrowseForFolder( bi );
if ( pidlBrowse <> nil ) then
if ( SHGetPathFromIDList( pidlBrowse, @Buffer ) ) then
result := StrPas( @Buffer );
ниже вся функция:
function TForm1.ShowBrowseFolderForm: string;
var
bi: TBrowseInfo;
pidlBrowse: PItemIDList;
Buffer: array[0..255] of char;
dispname: array[0..MAX_PATH] of char;
begin
bi.hwndOwner := Application.Handle;
bi.pidlRoot := nil;
bi.pszDisplayName := dispname;
bi.lpszTitle := PChar( 'Выбор каталога' );
bi.ulFlags := BIF_RETURNONLYFSDIRS;
bi.lpfn := nil;
bi.lParam := 0;
bi.iImage := 0;
pidlBrowse := SHBrowseForFolder( bi );
if ( pidlBrowse <> nil ) then
if ( SHGetPathFromIDList( pidlBrowse, @Buffer ) ) then
result := StrPas( @Buffer );
end;
|