(Gast)
n/a Beiträge
|
Re: Programmname aus .exe-Datei auslesen
21. Jul 2004, 08:39
Ich habe für ein eigenes Projekt sakuras Funktion leicht bearbeitet, damit sie mir nur das zurückliefert, was ich auch will bzw. brauche
Delphi-Quellcode:
//
// base code by sakura ([url]http://www.delphipraxis.net/post39547.html[/url])
//
function GetFileInfo( const FileName, BlockKey: string): string;
var
vis,
dummy : dword;
vi,
translation,
ip : pointer;
begin
Result := ' ';
vis := GetFileVersionInfoSize(pchar(FileName),dummy);
if(vis > 0) then
begin
GetMem(vi,vis);
try
GetFileVersionInfo(pchar(Filename),0,vis,vi);
if(vi = nil) then exit;
// get language code
VerQueryValue(vi,' \\VarFileInfo\\Translation',translation,vis);
if(translation = nil) then exit;
VerQueryValue(vi,
pchar(Format(' \\StringFileInfo\\%.4x%.4x\\%s',
[LOWORD(longint(translation^)),HIWORD(longint(translation^)),
BlockKey])), ip,vis);
if( ip = nil) then exit;
SetString(Result,pchar( ip),vis);
finally
FreeMem(vi);
end;
end;
end;
bspw:
s := GetFileInfo(paramstr(1),'FileDescription');
Das hatte ich bspw. hier benutzt.
|
|
Zitat
|