Установка свойства Файлов

← →
sav (2004-06-18 10:22) [0]

Здравствуйте мастера Delphi У меня такой вопрос:
Есть ли у файла "Свободная переменная"? мне нужно устанавливать версию файла, можно ли записывать ее как нибудь? Я устанавливаю дату создания для новой версии файла, но этого мало.
Подскажите, что можно сделать.

← →
Sandman25 © (2004-06-18 10:23) [1]

Project\Options\Version Info

← →
sav (2004-06-18 10:56) [2]

А как это сделать программно?

← →
Sandman25 © (2004-06-18 10:57) [3]

В FAQ поищите, должно быть

← →
sav (2004-06-18 11:28) [4]

Искал там нет

← →
Amoeba © (2004-06-18 11:53) [5]

На днях подобный вопрос уже обсуждался в форуме.

← →
sav (2004-06-18 13:46) [6]

Будем искать

← →
sav (2004-06-18 16:37) [7]

Нашел я эту тему, по ссылке:
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-ку?

Установка свойства Файлов Найти похожие ветки