Скачать: CL | DM;

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

← →
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-ку?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.034 c