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

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

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

получения шапки программы через OpenDialog

Страницы: < 1 2
Hapastiks © (2010-07-16 11:52:00)
На одном из форумов я задал этот вопрос, ответа не дали, пришел к вам.
Собствено вопрос: как получить шапку программы через OpenDialog

Германн (2010-07-17 22:01:00) [21]

> Морской бой? :-)

Не на что :)

Virgo_Style (2010-07-17 21:30:00) [22]

> Германн © (17.07.10 20:58) [13]

Морской бой? :-)

Германн (2010-07-17 20:58:00) [23]

> Virgo_Style © (17.07.10 20:46) [12]

Думаю мимо.

Virgo_Style (2010-07-17 20:46:00) [24]
*жмет на телепаторе кнопку Random*

OpenDialog.Title ?

Германн (2010-07-17 14:44:00) [25]

> Под шапкой я имел в виду caption программы типа 'Form1'
> или 'Opera'

А OpenDialog тут при чем?

Leonid Troyanovsky (2010-07-17 12:08:00) [26]

> Hapastiks (17.07.10 10:44) [9]

> Под шапкой я имел в виду caption программы типа 'Form1'

Тема OpenDialog & caption не раскрыта.

--
Regards, LVT.

Hapastiks (2010-07-17 10:44:00) [27]
Под шапкой я имел в виду caption программы типа 'Form1' или 'Opera'
P.S.Я по рускому ни бум-бум от и карявыє предложения получаются

Германн (2010-07-16 17:42:00) [28]
Может шапкой он называет хинт?

12 (2010-07-16 15:41:00) [29]
думаю, интересует
версия, язык, производитель, вообщем, все что доступно в проводнике.

не заморачивался никогда, единственное что надо мне - последнее число
отсюда код, но можно и еще чего накопать

function GetFileVer(FileName: string):Integer;
var
Info: Pointer;
InfoSize: DWORD;
FileInfo: PVSFixedFileInfo;
FileInfoSize: DWORD;
Tmp: DWORD;
begin
result := -1;
InfoSize := GetFileVersionInfoSize(PChar(FileName), Tmp);
GetMem(Info, InfoSize);
try
GetFileVersionInfo(PChar(FileName), 0, InfoSize, Info);
VerQueryValue(Info, '\', Pointer(FileInfo), FileInfoSize);
result := FileInfo.dwFileVersionLS and $FFFF;
finally
FreeMem(Info, FileInfoSize);
end;
end;

Dennis I. Komarov (2010-07-16 15:28:00) [30]
свежий орех...

azamatufa (2010-07-16 13:24:00) [31]
Даже меня (ламера ужасного) "шапка" улыбнула)))

Учсуд (2010-07-16 13:08:00) [32]
через опендиалог шапку не получить. можно только шарфик.

Palladin (2010-07-16 12:11:00) [33]
ребенок только учится говорить, смысла слов правда не понимает и предложения получаются безсмысленными

Юрий Зотов (2010-07-16 12:09:00) [34]
if OpenDialog.Execute then
OpenDialog.FileName := Application.ExeName
else
raise Exception.Create('Без шапки программа работать не может');

:o)

Anatoly Podgoretsky (2010-07-16 11:53:00) [35]
Что такое шапка программы

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

Наверх

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