Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Информация о файле [D7, XP]


Страницы:   1 2 3 4

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 опять забыт. ;))


Страницы:   1 2 3 4

Наверх

Титульная страница Поиск, карта сайта Написать письмо