![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Информация о файле [D7, XP]
Chort © (2006-07-27 23:43:00)Здравствуйте! Помогите вытянуть информацию с .exe файлов средствами OpenDialog1. Т.е необходимо чтобы при нажатии кнопки(пусть будет Button1) появлялось окно выбора проги (.exe)
procedure TForm1.Button1Click(Sender: TObject);И по выборе необходимого файла должна считыватся информация и показываться на экране : Размер, Версия продукта(и файла),Внутреннее имя, Исходное имя файла, Комментарий, Название продукта, Производитель,
begin
OpenDialog1.Execute;
end;
Язык, и все что еще возможно извлечь. И как потом можно будет управлять этими сведениями? Заранее спасибо!
Мефисто (2006-07-28 20:23:00) [41]
> PSPF2003 © (28.07.06 20:14) [36]
:)
> Chort © (28.07.06 20:09) [35]
var
A: TVerInfoRes;
begin
A := TVerInfoRes.Create('C:\MyEXE.exe');
try
Label1.Caption := A.GetPreDefKeyString(viFileVersion);
finally
A.Free;
end;
end;
P.S.
Но всетаки рекомендуем постигать азы начать с книжек, а не сразу с форума.
PSPF2003 (2006-07-28 20:14:00) [42]
> тоесть?Еще раз повторюсь, что я новичек в этом деле!
То есть ты скопировал с форума код. Который не понимаешь. Ты не боишься что тебе так вирус впарят когда-нибудь.
Chort (2006-07-28 20:09:00) [43]to PSPF2003
тоесть?
Еще раз повторюсь, что я новичек в этом деле!
PSPF2003 (2006-07-28 20:07:00) [44]Так и вирус впарить можно.....
PSPF2003 (2006-07-28 20:03:00) [45]Хмык...............
Chort (2006-07-28 20:01:00) [46]Нашел ошибку! теперь все прекрасно компилируется и запускается.Всем огромное спасибо(особенно Мефисто и Шпиён). Но как можно проверить работоспособность, ведь запускается пустая форма?
Мефисто (2006-07-28 18:16:00) [47]uses SysUtils?
Тебе выше выложили полностью рабочий код для извлечения нужной инфы.
Проверь все ли библиотеки uses подцеплены. Если ругается, значит ты что-то напортачил.
>> Что за компонент TTelepator ?
Компонент отвественный за телепатию. Он же ошибка в 17 строке.
Имелось ввиду, что телепатов на форуме нет. Следовательно без приведения сообщения об ошибке (Chort © (28.07.06 16:48) [28] ) ни кто ни чего путнего не посоветует.
Chort (2006-07-28 17:41:00) [48]Что за компонент TTelepator ?
А делфи ругается на многое.Короче говоря не находит type
{ define a generic exception class for version info, and an exception
to indicate that no version info is available. }
EVerInfoError = class(Exception);
ENoVerInfoError = class(Exception);
eNoFixeVerInfo = class(Exception);
и так далее...Не может их распознать
Мефисто (2006-07-28 16:52:00) [49]
> Chort © (28.07.06 16:48) [28]
Компонент TTelepator не установлен...
Что Delphi говорит? На что ругается?
Chort (2006-07-28 16:48:00) [50]Код почему-то не компилится.[10]
Мефисто (2006-07-28 16:34:00) [51]
> Chort © (28.07.06 16:18) [26]
Форум для начинающих (да и другие) не подразумевает, что за вас будут писать ПО. На форум приходят обсудить/решить возникшую проблему, а не сделайте все за меня.
По постам выше, как получить требуемое инфо уже дано. Остается только раскидать полученные данные куда требуется. По сие случаю возникает вопрос: в чем проблема и что не получается?
Chort (2006-07-28 16:18:00) [52]Ну а я думал что этот форум для начинающих (для Мефисто). Спасибо, помогли :o(
Пусик (2006-07-28 15:36:00) [53]
> Chort © (28.07.06 14:26) [23]
> to Пусик Как?
А это уже для другой темы вопрос - для отдельной ветки.
Мефисто (2006-07-28 14:30:00) [54]
> Chort © (28.07.06 14:26) [23]
- А вы и пироги за меня есть будете?
- Ага!
Двое из ларца (с)
Chort (2006-07-28 14:26:00) [55]to Пусик
Как?
Пусик (2006-07-28 13:32:00) [56]
> <Цитата>
>
>
> Chort © (28.07.06 12:56) [21]
> Насчет управления этими данными: мне нужно вставлять эти
> данные в базу данных Access ,и это будет отображатся в
> сетке DBGrid1
Ну так вставляй и отображай. Вопрос-то в чем?
Chort (2006-07-28 12:56:00) [57]Насчет управления этими данными: мне нужно вставлять эти данные в базу данных Access ,и это будет отображатся в сетке DBGrid1
KilkennyCat (2006-07-28 02:47:00) [58]Тем, что определен. Анноу - это признание в слабости, а бэйз - это твердо.
Шпиён (2006-07-28 02:41:00) [59]и чем он отличается от VOS_UNKNOWN?
ps я знаю, что Земля не круглая -)
KilkennyCat (2006-07-28 02:17:00) [60]все равно. VOS__BASE опять забыт. ;))