Хм, что ж
Коль уж углубляться, то предложу вообще экстра-вариант: Написание простенькой утилитки для Delphi, некое расширение. Coder, и вариант совсем не накладный;)
Текст программки:
| Код |
program ExeStore;
uses
Windows, SysUtils;
var
ExeFileName: string;
NewFileName: string;
FileExt: string;
Sufix: string;
begin
ExeFileName := ParamStr(1);
if not FileExists(ExeFileName) then
begin
MessageBox(0, 'Output file not exists', 'storing', MB_OK);
Exit;
end;
Sufix := ' ' + FormatDateTime('dd.mm.yyyy (hh.mm.ss)', Now);
FileExt := ExtractFileExt(ExeFileName);
NewFileName := ExeFileName;
Insert(Sufix, NewFileName, Length(NewFileName) - Length(FileExt) + 1);
if not RenameFile(ExeFileName, NewFileName) then
begin
MessageBox(0, 'Can''t rename file', 'storing', MB_OK);
Exit;
end;
end.
|
Лезим в среде Tools->Configure tools... Там нажимаем Add и в форме указываем:
Title = Exe storing
Program = путь и имя к скомпилированной программе, например C:\Documents and Settings\Sergey\Desktop\ExeStore\ExeStore.exe
Parameters = $EXENAME()
Теперь что получилось.
Когда пишешь проект, то после компиляции в меню Tools жмакаешь наш Exe storing.
Приведённая программа его переименует в тот же файл, но с суфиксом текущего времени.
Это как пример, а вообще, имя исполняемого файла в проекте утилитке передаётся в параметрах, так что сделать с ним можно что угодно;)
p.s. Кстати, меню Tools даёт возможность создания очень полезных вещей! |
)