Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос про выбор папки

Страницы: 1 2 >
Acronis © (2008-07-06 23:27:00)
Привет!
Возможно вопрос вам покажется глупым:)
Мне перед запуском моего приложения нужно выбрать директорию, для ее выбора я использую следующий код:
procedure TForm1.Button1Click(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;
TitleName := 'Please specify a directory';
BrowseInfo.lpszTitle := PChar(TitleName);
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then
begin
SHGetPathFromIDList(lpItemID, TempPath);
GlobalFreePtr(lpItemID);
end;
end;

Рядом с кнопкой вызова этого диалога стоит TEdit, как сделать чтобы после выбора папки в элите отовражался путь к папке которую я выбрал?

Игорь Шевченко (2008-07-07 10:40:00) [1]
Троллить ты приходишь

Германн (2008-07-07 02:36:00) [2]

>
> > Германн © (07.07.08 02:22) [24]
> >
> >
> > >
> > > А я не ставил себе целью пристыдить.
> > > Как и пофлудить.
> > >
> >
> > Ну да, Черномырдин ты наш. Хотел как лучше, а получилось
> > как всегда.
> > :(
>
>
> Ха. А ты разве не за этим сюда приходишь?
>

Да. Бывает порой, что прихожу "за этим".

Тын-Дын (2008-07-07 02:32:00) [3]

> Юрий Зотов © (07.07.08 02:31) [26]
>
> > Тын-Дын © (07.07.08 02:20) [23]
>
> > Ты не умничай. Ты код давай!
>
> Без флуда, без шуток и без подколок. Вполне серьезно.
>
> Часто псевдокод именно для новичков бывает и понятнее, и
> полезнее, чем реальный рабочий код.
>
> Понятнее - потому, что суть не загромождена техническими
> деталями.
>
> Полезнее - потому, что реальный код придется писать самому.
> А для этого и в справку заглянуть придется, и подумать
> тоже.

Юрий, полностью согласен;)

Юрий Зотов (2008-07-07 02:31:00) [4]
> Тын-Дын © (07.07.08 02:20) [23]

> Ты не умничай. Ты код давай!

Без флуда, без шуток и без подколок. Вполне серьезно.

Часто псевдокод именно для новичков бывает и понятнее, и полезнее, чем реальный рабочий код.

Понятнее - потому, что суть не загромождена техническими деталями.

Полезнее - потому, что реальный код придется писать самому. А для этого и в справку заглянуть придется, и подумать тоже.

Тын-Дын (2008-07-07 02:25:00) [5]

> Германн © (07.07.08 02:22) [24]
>
>
> >
> > А я не ставил себе целью пристыдить.
> > Как и пофлудить.
> >
>
> Ну да, Черномырдин ты наш. Хотел как лучше, а получилось
> как всегда.
> :(

Ха. А ты разве не за этим сюда приходишь?

Германн (2008-07-07 02:22:00) [6]

>
> А я не ставил себе целью пристыдить.
> Как и пофлудить.
>

Ну да, Черномырдин ты наш. Хотел как лучше, а получилось как всегда.
:(

Тын-Дын (2008-07-07 02:20:00) [7]

> Юрий Зотов © (07.07.08 02:17) [20]

Ты не умничай. Ты код давай!

Тын-Дын (2008-07-07 02:19:00) [8]

> Юрий Зотов © (07.07.08 02:17) [20]
>
> > Тын-Дын © (07.07.08 02:07) [12]
>
> > 1. Одной строкой эту функцию даже при большом желании
> не
> > удастся использовать.
>
> if SelectDirectory(..., MyVar) then Edit1.Text := MyVar;
>

А где MyVar определена?
LOL

Тын-Дын (2008-07-07 02:19:00) [9]

> Юрий Зотов © (07.07.08 02:17) [20]
>
> > Тын-Дын © (07.07.08 02:07) [12]
>
> > 1. Одной строкой эту функцию даже при большом желании
> не
> > удастся использовать.
>
> if SelectDirectory(..., MyVar) then Edit1.Text := MyVar;
>
>
> > 2. Результат этой функции несколько другого типа.
>
> Поправка, безусловно, важнейшая. Ты пристыдил меня, о,
> внимательнейший из дотошнейших.

А я не ставил себе целью пристыдить.
Как и пофлудить.

Юрий Зотов (2008-07-07 02:17:00) [10]
> Тын-Дын © (07.07.08 02:07) [12]

> 1. Одной строкой эту функцию даже при большом желании не
> удастся использовать.

if SelectDirectory(..., MyVar) then Edit1.Text := MyVar;

> 2. Результат этой функции несколько другого типа.

Поправка, безусловно, важнейшая. Ты пристыдил меня, о, внимательнейший из дотошнейших.

LOL.

Тын-Дын (2008-07-07 02:16:00) [11]
Кстати, в форуме принято отвечать за свои слова, за точность формулировок и высказываний.

Тын-Дын (2008-07-07 02:15:00) [12]

> Германн © (07.07.08 02:14) [17]
>
>
> > Тын-Дын © (07.07.08 02:09) [15]
>
> Представь себе удалось.

Очень сомневаюсь.
Хочешь помериться - приходи в чат.

Германн (2008-07-07 02:14:00) [13]

> Тын-Дын © (07.07.08 02:09) [15]

Представь себе удалось.

Германн (2008-07-07 02:12:00) [14]

> Тын-Дын © (07.07.08 02:07) [12]
>
>
> > Юрий Зотов © (07.07.08 01:52) [10]
>
>
> Это немного придирки, конечно, но:
>
>

Совет ЮЗ полезен для тех, кто не имеет противопоказаний к чтению стандартной справки. Не более, но и не менее.

Твоя фраза "Одной строкой эту функцию даже при большом желании не удастся использовать." - чистая придирка.

Тын-Дын (2008-07-07 02:09:00) [15]

> Германн © (07.07.08 02:07) [13]
>
>
> > Тын-Дын © (07.07.08 01:45) [9]
> >
> >
> > > Уж сколько я тут на форуме советовал эту функцию
> >
> >
> > Сколько?
> >
>
> Много. Ты столько на форуме ещё не прожил.

Даже я только 2-3 раза эту функцию давал. Вряд ли тебе удалось больше раз её дать.

Тын-Дын (2008-07-07 02:08:00) [16]

> Германн © (07.07.08 02:05) [11]
>
>
> > Тын-Дын © (07.07.08 01:44) [8]
> >
> >
>
> Скомпилирую без проблем, поскольку никогда не использую
> CodeCompletion, гореть бы ему в аду!

Ну-ну. В том виде, который указан?
Только про многоточия не надо?

Германн (2008-07-07 02:07:00) [17]

> Тын-Дын © (07.07.08 01:45) [9]
>
>
> > Уж сколько я тут на форуме советовал эту функцию
>
>
> Сколько?
>

Много. Ты столько на форуме ещё не прожил.

Тын-Дын (2008-07-07 02:07:00) [18]

> Юрий Зотов © (07.07.08 01:52) [10]

Это немного придирки, конечно, но:

Юрий, я понимаю, конечно, что можно написать пример не глядя в справку.
Но будь на твоём месте новичок, некоторые уже топтали бы его ногами.

1. Одной строкой эту функцию даже при большом желании не удастся использовать.
2. Результат этой функции несколько другого типа.

PS.
Я знаю, что земля не круглая.
Но ведь и не настолько плоская?

Германн (2008-07-07 02:05:00) [19]

> Тын-Дын © (07.07.08 01:44) [8]
>
>

Скомпилирую без проблем, поскольку никогда не использую CodeCompletion, гореть бы ему в аду!

Юрий Зотов (2008-07-07 01:52:00) [20]
> Тын-Дын © (07.07.08 01:14) [5]

И что же ты хотел сказать зтим свои "неужели", о, загадочный?

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »