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

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

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

Установка свойства Файлов [D7, Win2k]

sav © (2004-06-18 10:22:00)
Здравствуйте мастера Delphi У меня такой вопрос:
Есть ли у файла "Свободная переменная"? мне нужно устанавливать версию файла, можно ли записывать ее как нибудь? Я устанавливаю дату создания для новой версии файла, но этого мало.
Подскажите, что можно сделать.

sav (2004-06-18 16:37:00) [1]
Нашел я эту тему, по ссылке:
http://esavitsky.narod.ru/projects/versioninfo.htm
скачал DLL, попробовал я подключить к проэкту через Интерфейсный модуль:
-----------------------------------------
unit interm;

interface
procedure load(const lpszFileName: Pchar); stdcall; External 'mvinfo.dll';
function Get_FileVersion: WideString; safecall; External 'mvinfo.dll';
procedure Set_FileVersion(const pVal: WideString); safecall; External 'mvinfo.dll';

implementation

end.
--------------------------
Подключил к проэкту и по кнопке пытаюсь вызвать процедуру:
----------
procedure TForm1.Button1Click(Sender: TObject);
var Namefile:String;
begin
Namefile:='E:\Admin.exe';
load(Pchar(Namefile));
end;
----------
Но на стадии компиляции останавливается перед инициализацией формы, никаких ошибок не выдает. Если повторно нажать F9:

Дефектное Уведомление Отладчика
---------------------------
Проект E:\Project\Obnovlenie\Project1.exe faulted с сообщением: 'нарушение доступа в 0x77f8ea53: запись адреса 0x00030cb4'. Остановленный Процесс. ......

Подскажите как подключить эту DLL-ку?

sav (2004-06-18 13:46:00) [2]
Будем искать

Amoeba (2004-06-18 11:53:00) [3]
На днях подобный вопрос уже обсуждался в форуме.

sav (2004-06-18 11:28:00) [4]
Искал там нет

Sandman25 (2004-06-18 10:57:00) [5]
В FAQ поищите, должно быть

sav (2004-06-18 10:56:00) [6]
А как это сделать программно?

Sandman25 (2004-06-18 10:23:00) [7]
Project\Options\Version Info

Наверх

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