Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Вниз

Пожалуйста объясните   Найти похожие ветки 

 
Archer84 ©   (2005-09-27 13:53) [0]

Помогите пожалуйста разобраться с листингом.

Данная процедура при нажатии кнопки открывает диолог выбора папки. Только вот я не понимаю значения некоторых элементов кода, пытался искать. только вот от куда эти функции берутся не знаю. Объясните или подскажитегде про них прочитать.
 
procedure TForm1.FolderNameButClick(Sender: TObject);
var
TitleName : string;
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
FillChar(BrowseInfo, SizeOf(TBrowseInfo), #0);
BrowseInfo.hwndOwner := Form1.Handle;
BrowseInfo.pszDisplayName := @DisplayName;
BrowseInfo.lpszTitle := "Выберите директорию:";
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then
  begin
  SHGetPathFromIDList(lpItemID, TempPath);
  GlobalFreePtr(lpItemID);                          
  FolderName.Text := TempPath;
  end;
end;


 
evvcom ©   (2005-09-27 13:58) [1]

А какие элементы тебе не понятны, мы угадать должны? Или тебе объяснить каждую букву?


 
IceBeerg ©   (2005-09-27 13:59) [2]

Например посмотри:
TBrowseInfo -> ShlObj.pas
SHGetPathFromIDList -> Win32s Programmer"s Reference
кароче F1 и Alt F7 (FAR)


 
Leonid Troyanovsky ©   (2005-09-27 14:16) [3]


> Archer84 ©   (27.09.05 13:53)  
> Помогите пожалуйста разобраться с листингом.


В печь его.

--
Regards, LVT.


 
Archer84 ©   (2005-09-27 14:54) [4]

Мне не понятно зачем надо выполнять  FillChar(BrowseInfo, SizeOf(TBrowseInfo), #0) и откуда вообще берется этот параметр BrowseInfo

To Leonid Troyanovsky
В печь нельзя. Он мне нужен. я хочу зазобраться.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.055 c
8-1116948602
Dadly
2005-05-24 19:30
2005.10.16
Перевод аналогового звука через вход карты в цифровой


14-1127719744
Empleado
2005-09-26 11:29
2005.10.16
Скорость света


1-1127814627
BaxTMaH
2005-09-27 13:50
2005.10.16
Клавиша Backspace


9-1117733233
.cpp
2005-06-02 21:27
2005.10.16
Волшебная точка


1-1127712035
Ded_Matvey
2005-09-26 09:20
2005.10.16
меняется шрифт в перерисованой канве





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский