تغییر Version Info فایل Exe

[Delphi-Man]

با سلام
چطوری میشه اطلاعات ورژن از جمله comment و product version و اینها رو در یه فایل exe خارجی تغییر داد؟

[sobhangh]

از منوی Project میری Option و توی سربرگ Version infoمیشه این کارها را کرد. البته داخل برنامه.

[Delphi-Man]

از منوی Project میری Option و توی سربرگ Version infoمیشه این کارها را کرد. البته داخل برنامه.
ممنون ولی من که گفتم exe خارجی

[Delphi-Man]

پس هیچکی جواب نمیده؟ خیلی ضروریه کمک کنید.

[سعید صابری]

منظورت از خارجي چيه؟

[Delphi-Man]

دوستان منظورم اینه که یه برنامه با دلفی می نویسیم که خودش بتونه Version info یه فایل exe دیگه رو تغییر بده. در ضمن هر دو فایل exe (چه خود برنامه چه exe ای که قراره version info عوض بشه) با دلفی نوشته شده. مثلا نرم افزار multimedia builder وقتی که می خواد پروژه رو کامپایل کنه قبلش بهتون اجازه میده version info مثل product name و product version و ... رو تغییر بدین.

[Delphi-Man]

دو روز گذشته هنوز کسی جواب نداده :عصبانی++:

[Felony]

مثلا نرم افزار multimedia builder وقتی که می خواد پروژه رو کامپایل کنه قبلش بهتون اجازه میده version info مثل product name و product version و ... رو تغییر بدین.
خودتون دارین میگین قبل از کامپایل ، البته بیلدر کامپایلر نداره و مفسر هست .
فکر کنم اگر بیت به بیت فایل رو بخونید بتونید بیت های ورژن رو پیدا کنید و تعویض کنید .

[Delphi-Man]

خودتون دارین میگین قبل از کامپایل ، البته بیلدر کامپایلر نداره و مفسر هست .
فکر کنم اگر بیت به بیت فایل رو بخونید بتونید بیت های ورژن رو پیدا کنید و تعویض کنید .
دقیقا. این رو هم میدونم که کامپایل نمیکنه. فقط مطمئن نیستم که نیازی به پیدا کردن header نباشه. اگه اینطوری نباشه خیلی خوب میشه. وگرنه مجبورم تا فایل دوم رو به طور کامل کارمو روش تموم کردم ببینم رو کدوم بایت اطلاعات ورژن رو نگه میداره.

[shahzade_33]

دوست عزیز با برنامه ResHacker.exe میتونی ورژن فایل اجرایی تغییر بدی

[lord_viper]

این اطلاعات در ریسورس ذخیره میشن
کد زیر فکر کنم مفید باشه



Sz := GetLen;
GetMem(Data, Sz);
try
GetData(Data, Sz);
HFile := BeginUpdateResource(PChar(FileName), false);
if HFile = 0 then
RaiseLastWin32Error;
DoDiscard := true;
try
if not UpdateResource(HFile, RT_VERSION, PChar(1), 0, Data, Sz) then
RaiseLastWin32Error;
DoDiscard := false;
finally
if not EndUpdateResource(HFile, DoDiscard) then
RaiseLastWin32Error;
end;
finally
FreeMem(Data);
end;


مثال دیگر

procedure clone(sFile,output:string);
var
dwHandle, cbTranslate: cardinal;
sizeVers: DWord;
lpData, langData: Pointer;
lpTranslate: ^LANGANDCODEPAGE;
hRes : THandle;
begin
sizeVers := GetFileVersionInfoSize(PChar(sFile), dwHandle);
If sizeVers = 0 then
exit;
GetMem(lpData, sizeVers);
try
ZeroMemory(lpData, sizeVers);
GetFileVersionInfo (PChar(sFile), 0, sizeVers, lpData);
If not VerQueryValue (lpData, '\VarFileInfo\Translation', langData, cbTranslate) then
exit;
hRes := BeginUpdateResource(pchar(output), FALSE);
//For i := 0 to (cbTranslate div sizeof(LANGANDCODEPAGE)) do
//begin
lpTranslate := Pointer(Integer(langData) + sizeof(LANGANDCODEPAGE));
UpdateResource(hRes, RT_VERSION, MAKEINTRESOURCE(VS_VERSION_INFO), lpTranslate^.wLanguage,lpData, sizeVers);
//end;
EndUpdateResource(hRes, FALSE);
finally
FreeMem(lpData);
end;
end;

[shobair]

با سلام
چطوری میشه اطلاعات ورژن از جمله comment و product version و اینها رو در یه فایل exe خارجی تغییر داد؟

سلام

نرم افزاری هست به نام Resource Hacker که میشه باهاش این چیزها رو عوض کرد. اگه برنامه با دلفی نوشته شده باشه که تقریباً همه کار میشه کرد، حتی میشه جای رویداد های یک فرم رو عوض کرد یا حذفشون کرد.

شبیر