تحديد اصدار ams المثبت

[ثامر أبو بلقيس]

السلام عليكم
ماالأكواد و الطرق لتحديد رقم اصدار
AutoPlay Media Studio ـ برمجيا ـ
المثبت على الجهاز ؟
شكرا :abc_138:

[احمد اللسعيد السيد]

السلام عليكم ورحمة الله وبركاته
اخى ثامر حضرتك عايز تعرف التجميعة مثلا مصنوعة باى اصدار ام ماذا
:abc_139:

[azizsoft]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

محاولة أخي ثامر ربما تفيد

بعد زرع هد الكود في زر يعطينا البرامج المنصبة بجهاز المستخدم


-- Retrieve table of all installed software via Control Panel's Uninstall Utility
tblSoftware = Registry.GetKeyNames(HKEY_LOCAL_MACHINE, "Software\\Microsoft\\Windows\\CurrentVersion\\Unin stall");

-- Concatenate table of results and display in dialog-message
sResult = Table.Concat(tblSoftware, "\r\n", 1, TABLE_ALL);
Dialog.Message("List of Installed Software", sResult, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);


الكود التالي من ملف المساعدة

1


version_info = File.GetVersionInfo( _ProgramFilesFolder .. "\\Doopernator\\Doopernator.exe");
fv = version_info.FileVersion;
pv = version_info.ProductVersion;



2


-- Get the file information, and load it into a table
tVersionInfo = File.GetVersionInfo(_SourceFolder .. "\\setup.exe");

-- Get the last error code
nError = Application.GetLastError();
if nError == 0 then
-- There was not an error
sOutput = "";

-- Traverse the table, storing info in a string
for Name, Contents in pairs(tVersionInfo) do
sOutput = sOutput .. Name .. ": " .. Contents .. "\r\n";
end

-- Output string contents to the user
Dialog.Message("File Version Information", sOutput);
else
-- There was an error, alert the user
Dialog.Message("Error", _tblErrorMessages[nError]);
end



أفكار وليس حلول ههههههههههه
وفقكم الله

[ثامر أبو بلقيس]

شكرا جزيلا الأخ أحمد
أستاذي الكريم عزيز استعملت الكود الأخير وهو ما ابحث عنه تماما
شكرا وبارك الله فيك :abc_152: :abc_022:
تقديري

[azizsoft]

بسم الله الرحمن الرحيم

وفقكم الله

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته

[ثامر أبو بلقيس]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

محاولة أخي ثامر ربما تفيد

بعد زرع هد الكود في زر يعطينا البرامج المنصبة بجهاز المستخدم


-- Retrieve table of all installed software via Control Panel's Uninstall Utility
tblSoftware = Registry.GetKeyNames(HKEY_LOCAL_MACHINE, "Software\\Microsoft\\Windows\\CurrentVersion\\Unin stall");

-- Concatenate table of results and display in dialog-message
sResult = Table.Concat(tblSoftware, "\r\n", 1, TABLE_ALL);
Dialog.Message("List of Installed Software", sResult, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);


الكود التالي من ملف المساعدة

1


version_info = File.GetVersionInfo( _ProgramFilesFolder .. "\\Doopernator\\Doopernator.exe");
fv = version_info.FileVersion;
pv = version_info.ProductVersion;



2


-- Get the file information, and load it into a table
tVersionInfo = File.GetVersionInfo(_SourceFolder .. "\\setup.exe");

-- Get the last error code
nError = Application.GetLastError();
if nError == 0 then
-- There was not an error
sOutput = "";

-- Traverse the table, storing info in a string
for Name, Contents in pairs(tVersionInfo) do
sOutput = sOutput .. Name .. ": " .. Contents .. "\r\n";
end

-- Output string contents to the user
Dialog.Message("File Version Information", sOutput);
else
-- There was an error, alert the user
Dialog.Message("Error", _tblErrorMessages[nError]);
end



أفكار وليس حلول ههههههههههه
وفقكم الله

أجدد شكري العميق و أبادلك بمايلي :
D=File.GetVersionInfo(_SourceFolder.."\\".._SourceFilename).ProductVersion
Dialog.Message("Notice", D);

[منوبة]

وفقك الله
شكرا اخونا عزيز
بارك الله فيكم جميعا
:abc_152::abc_152: