Alextp
|
 Posted: Wed Aug 01, 2007 18:08 Post subject: |
 |
|
Очень просто написать плагин к FileDesc.
Вот например, плагин, который читает описание из VersionInfo:
| Code: | function ImportDesc_SameFile(PluginID: Word; FileName, Desc: PChar;
RequireFile: TWIRequireFileProc): Boolean; stdcall;
var
fn, ver1, ver2: string;
begin
Result:= false;
fn:= RequireFile(FileName);
case PluginID of
0:
begin
ver1:= FileVersionInfo(fn, 'FileDescription');
ver2:= FileVersionInfo(fn, '');
if ver2<>'' then
ver1:= SFormat('%s (%s)', [ver1, ver2]);
StrLCpy(Desc, PChar(ver1), MaxDescLength);
Result:= lstrlen(Desc)>0;
Exit
end;
end;
end; |
как видишь, все очень просто - написать одну ф-цию (остальное взять как есть) и плагин готов
_________________
UniViewer - CudaText - LogViewer
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
