Главная страница
    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.044 c
2-1127106166
ilya_ae
2005-09-19 09:02
2005.10.16
освобождение памяти


1-1127802201
Mishenka
2005-09-27 10:23
2005.10.16
Как отловить событие перехода фокуса?


14-1127746766
Igorek
2005-09-26 18:59
2005.10.16
Какие ваши точные координаты?


2-1126287506
Олег Л
2005-09-09 21:38
2005.10.16
Программирование на низком уровне.


1-1127741789
yanker
2005-09-26 17:36
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский