Jak wyciagnac detale pliku z pliku exe

Jak wyciagnac detale z pliku exe tj. opis programu, nazwa , wersja itd...

aha i przy okazji jak je pozniej zapisac do nowego exeka / podmienic :D

podstawy ziomus extractfilename(opendialog1.filename); //zamiast opendialog1.filename mozesz dac stringa.Jak zapisac do nowego exeka/podmienic ? WTF ?! assignfile(Exe,'nazwa.exe');

lol....nie zrozumiales pytania kolego :D nie chodzi mi o nazwe pliku...zreszta juz znalazlem jak wyciagnac te dane...tylko nie wiem jak je zapisac podmienic do nowego exeka..

http://msdn.microsoft.com/en-us/library/windows/desktop/ms646981%28v=vs.85%29.aspx

czarna magia dla mnie jak zapisac te dane do pliku.. :/

Przez zasoby? (@see WinAPI -> Resources)

 
procedure CloneVersionInfo(SourceFile,TargetFile:String);
var
  sFile :       string;
  dLen:         DWORD;
  BuffLen:      DWORD;
  dHandle:      DWORD;
  pBuff:        Pointer;
  BufferString: String;
  FH:           integer;
  lpTranslate:  POINTER;
  dVal:         WORD;
begin
  Sfile:=SourceFile;
  dLen := GetFileVersionInfoSize(PChar(sFile), dHandle);
  if dLen <> 0 then
  begin
    BuffLen := dLen;
    Setlength(BufferString,dlen);
    pBuff := VirtualAlloc(nil, dLen, MEM_COMMIT, PAGE_READWRITE);
    GetFileVersionInfo(Pchar(Sfile), 0, BuffLen, pBuff);
    Move(pBuff^, BufferString[1], Length(BufferString));
    FH := BeginUpdateResource(Pchar(TargetFile),False);
    VerQueryValue(pBuff, '\VarFileInfo\Translation', lpTranslate, dLen);
    CopyMemory(@dVal,  lpTranslate, 2);
    UpdateResource(FH,RT_VERSION,MakeIntResource(1), dVal,@BufferString[1],Length(BufferString));
    EndUpdateResource(FH,False);
  End;
End;

;)

Na stronie http://www.wilsonc.demon.co.uk/delphi.htm znajdziesz paczkę modułów "Resource Utilities" do odczytu lub modyfikacji zasobów, m.in. informacji o wersji pliku exe (a także dll i res).