Дистрибутив програми - спеціальне ПЗ, яке призначене для розгортання програми у цільовій системі. Це ПЗ копіює файли програми у місце, визначене користувачем, налаштовує операційну систему, перевіряє наявність бібліотек, необхідних для роботи тощо.

Для створення дистрибутивів існує велика кількість програмного забезпечення: Nullsoft Install System, Smart Install Maker, InstallShield. Це програмне забезпечення є платним, потребує витрат часу на встановлення та освоєння, хоча і надає при цьому велику кількість засобів та налаштувань.

Існує альтернатива - ПЗ, що поставляється разом із Microsoft Visual Studio. Це ПЗ надає тільки найважливішу функціональність (якої більш ніж достатньо для створення простих дистрибутивів), але є безкоштовною та простою у використанні.

Для використання цього ПЗ потрібно створити у Visual Studio новий проект Setup Project. Після створення необхідно додати усі файли, які мають бути розгорнуті при встановлені, задати назву, шлях встановлення та деякі інші параметри. Після цього потрібно побудувати проект. Результатом побудови будуть програма-інсталятор (*. exe) та пакет, що містить встановлювані файли (*. msi).

Вигляд програми-інсталятора:

Рис.4.3.1 Вигляд програми-інсталятора

Висновок

1. Program. cs - точка входу, стартова процедура:

using System;

using System. Collections. Generic;

using System. Linq;

using System. Windows. Forms;

namespace WindowsFormsApplication1

{

static class Program

{

[STAThread]

static void Main ()

{

Application. EnableVisualStyles ();

Application. SetCompatibleTextRenderingDefault (false);

Application.run (new MainWindow ());

}

}

}

2. MainWindow. cs - основна форма програми, реалізує ключову функціональність:

using System;

using System. Collections. Generic;

using System.componentModel;

using System. Data;

using System. Drawing;

using System. Linq;

using System. Text;

using System. Windows. Forms;

using System.runtime. InteropServices;

using System. Management;

using System. Security. Permissions;

using Microsoft. Win32;

using System. Collections. Specialized;

namespace WindowsFormsApplication1

{

public partial class MainWindow: Form

{

private const uint GENERIC_READ = 0x80000000;

private const uint FILE_SHARE_READ = 0x1;

private const uint FILE_ATTRIBUTE_NORMAL = 0x80;

private const int INVALID_HANDLE_VALUE = - 1;

private const uint OPEN_EXISTING = 3;

[DllImport ("kernel32. dll")]

public static extern bool GetVersionEx ([In, Out] OSVersionInfoEx osvi);

[DllImport ("user32. dll")]

public static extern int GetSystemMetrics ([In] int index);

[DllImport ("kernel32. dll")]

public static extern void GetSystemInfo ([In, Out] ref SystemInfo p_si);

[return: MarshalAs (UnmanagedType. Bool)]

[DllImport ("kernel32. dll", CharSet = CharSet. Auto, SetLastError = true)]

static extern bool GlobalMemoryStatusEx ([In, Out] MemoryStatusEx lpBuffer);

[DllImport ("user32. dll")]

static extern short GetKeyState ([In] int nVirtKey);

[DllImport ("Kernel32. dll")]

static extern unsafe bool GetComputerName (byte* buf, long* nSize);

[DllImport ("kernel32. dll")]

static extern uint GetSystemDirectory ([Out] StringBuilder lpBuffer, uint uSize);

[DllImport ("kernel32. dll", CharSet = CharSet. Auto, CallingConvention = CallingConvention. StdCall, SetLastError = true)]

private static extern IntPtr CreateFile (string lpFileName, uint dwDesiredAccess, uint dwShareMode, IntPtr SecurityAttributes, uint dwCreationDisposition, uint dwFlagsAndAttributes, IntPtr hTemplateFile);

[DllImport ("kernel32. dll", SetLastError = true)]

private static extern bool GetFileTime (IntPtr hFile, ref FileTime lpCreationTime, ref FileTime lpLastAccessTime, ref FileTime lpLastWriteTime);

[DllImport ("kernel32. dll", SetLastError = true)]

[return: MarshalAs (UnmanagedType. Bool)]

private static extern bool CloseHandle (IntPtr hObject);

[DllImport ("kernel32. dll")]

static extern uint GetLogicalDriveStrings (uint nBufferLength, [Out] char [] lpBuffer);

[DllImport ("Kernel32. dll", CharSet = CharSet. Auto, SetLastError = true)]

extern static bool GetVolumeInformation (string RootPathName, StringBuilder VolumeNameBuffer, int VolumeNameSize, out uint VolumeSerialNumber, out uint MaximumComponentLength, out uint FileSystemFlags, StringBuilder FileSystemNameBuffer, int nFileSystemNameSize);

[DllImport ("kernel32. dll", SetLastError = true, CharSet = CharSet. Auto)]

[return: MarshalAs (UnmanagedType. Bool)]

static extern bool GetDiskFreeSpaceEx (string lpDirectoryName, out ulong lpFreeBytesAvailable, out ulong lpTotalNumberOfBytes, out ulong lpTotalNumberOfFreeBytes);

[DllImport ("kernel32. dll")]

public static extern DriveType GetDriveType ([MarshalAs (UnmanagedType. LPStr)] string lpRootPathName);

public MainWindow ()

{

InitializeComponent ();

this. refresh ();

this. refreshRegData ();

StringCollection drvlist = this. getLogicalDrives ();

if (drvlist! = null)

{

foreach (string s in drvlist)

{

comboBox1. Items. Add (s);

}

}

else

{

MessageBox. Show ("Виклик GetLogicalDriveStrings не вдався!", "Помилка", MessageBoxButtons. OK, MessageBoxIcon. Error);

}

comboBox1. SelectedIndex = 0;

}

private void button3_Click (object sender, EventArgs e)

{

}

private StringCollection getLogicalDrives ()

{

const int size = 512;

char [] buffer = new char [size];

uint code = GetLogicalDriveStrings (size, buffer);

if (code == 0)

{

MessageBox. Show ("Виклик GetLogicalDriveStrings не вдався!", "Помилка", MessageBoxButtons. OK, MessageBoxIcon. Error);

return null;

}

StringCollection list = new StringCollection ();

int start = 0;

for (int i = 0; i < code; ++i)

{

if (buffer [i] == 0)

{

string s = new string (buffer, start, i - start);

list. Add (s);

start = i + 1;

}

}

return list;

}

private void refresh ()

{

string versionString = "Windows";

string numLockState;

byte [] buf = new byte [512];

unsafe

{

long size = buf. Length;

long* p_size = &size;

fixed (byte* p_buf = buf)

{

GetComputerName (p_buf, p_size);

}

}

System. Text. Encoding textEnc = new System. Text. ASCIIEncoding ();

string computerName = textEnc. GetString (buf);

OSVersionInfoEx osvi = new OSVersionInfoEx ();

SystemInfo si = new SystemInfo ();

MemoryStatusEx ms = new MemoryStatusEx ();

StringBuilder systemDir = new StringBuilder (256);

ms. dwLength = (uint) Marshal. SizeOf (ms);

osvi. dwOSVersionInfoSize = Marshal. SizeOf (osvi);

GetVersionEx (osvi);

switch (osvi. dwMajorVersion)

{

case 6:

if (osvi. dwMinorVersion == 1 && osvi. wProductType == 1) versionString += " 7";

else if (osvi. dwMinorVersion == 1 && osvi. wProductType == 0) versionString += " Server 2008 R2";

else if (osvi. dwMinorVersion == 0 && osvi. wProductType == 1) versionString += " Vista";

else if (osvi. dwMinorVersion == 0 && osvi. wProductType == 0) versionString += " Server 2008";

break;

case 5:

if (osvi. dwMinorVersion == 2 && GetSystemMetrics (89) == 1) versionString += " Server 2003 R2";

else if (osvi. dwMinorVersion == 2 && osvi. wProductType == 0) versionString += " Server 2003";

else if (osvi. dwMinorVersion == 1) versionString += " XP";

else if (osvi. dwMinorVersion == 0) versionString += " 2000";

break;

default:

MessageBox. Show ("Invalid major version value!", "Error", MessageBoxButtons. OK, MessageBoxIcon. Error);

break;

}

versionString += " " + osvi. szCSDVersion;

label12. Text = "Microsoft "+ versionString;

label23. Text = osvi. dwMajorVersion +"." + osvi. dwMinorVersion +"." + osvi. dwBuildNumber;

GetSystemInfo (ref si);

label14. Text = si. dwNumberOfProcessors. ToString ();

label15. Text = si. lpMaximumApplicationAddress. ToString ();

GlobalMemoryStatusEx (ms);

label16. Text = Math. Round ( (double) (ms. ullTotalPhys / 1024/1024),

2). ToString () + " MБ";

if (GetKeyState (0x90) == 1) numLockState = "Активна";

else if (GetKeyState (0x90) == 0) numLockState = "Неактивна";

else numLockState = "Помилка";

label17. Text = numLockState;

label18. Text = GetSystemMetrics (14). ToString ();

label19. Text = GetSystemMetrics (1). ToString ();

GetSystemDirectory (systemDir, 256);

label20. Text = systemDir. ToString ();

label22. Text = computerName. ToString (). Trim ();

}

private void button4_Click (object sender, EventArgs e)

{

}

private void comboBox1_SelectedIndexChanged (object sender, EventArgs e)

{

ulong FreeBytesAvailable;

ulong TotalNumberOfBytes;

ulong TotalNumberOfFreeBytes;

string drive = comboBox1. SelectedItem. ToString ();

StringBuilder volname = new StringBuilder (261);

StringBuilder fsname = new StringBuilder (261);

uint sernum, maxlen;

uint flags;

if (! GetVolumeInformation (drive, volname, volname. Capacity, out sernum, out maxlen, out flags, fsname, fsname. Capacity))

Marshal. ThrowExceptionForHR (Marshal. GetHRForLastWin32Error ());

label34. Text = volname. ToString ();

label11. Text = fsname. ToString ();

byte [] data = BitConverter. GetBytes (sernum);

Array. Reverse (data);

label35. Text = BitConverter. ToString (data). Replace ("-","");

DriveType drt = GetDriveType (drive);

label21. Text = drt. ToString ();

GetDiskFreeSpaceEx (drive, out FreeBytesAvailable, out TotalNumberOfBytes, out TotalNumberOfFreeBytes);

label29. Text = Math. Round ( ( (double) TotalNumberOfBytes / 1024/1024/1024),

2). ToString () + " ГБ";

label8. Text = Math. Round ( ( (double) TotalNumberOfFreeBytes / 1024/1024/1024),

2). ToString () + " ГБ";

}

private void button1_Click (object sender, EventArgs e)

{

DialogResult dr = openFileDialog1. ShowDialog ();

if (dr == DialogResult. Cancel) return;

label28. Text = openFileDialog1. FileName;

DateTime CreationTime = DateTime. MinValue;

DateTime LastAccessTime = DateTime. MinValue;

DateTime LastWriteTime = DateTime. MinValue;

IntPtr ptr = IntPtr. Zero;

FileTime ftCreationTime = new FileTime ();

FileTime ftLastAccessTime = new FileTime ();

FileTime ftLastWriteTime = new FileTime ();

try

{

ptr = CreateFile (openFileDialog1. FileName, GENERIC_READ, FILE_SHARE_READ, IntPtr. Zero, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, IntPtr. Zero);

if (ptr. ToInt32 () == INVALID_HANDLE_VALUE) Marshal. ThrowExceptionForHR (Marshal. GetHRForLastWin32Error ());

if (GetFileTime (ptr, ref ftCreationTime, ref ftLastAccessTime, ref ftLastWriteTime)! = true) Marshal. ThrowExceptionForHR (Marshal. GetHRForLastWin32Error ());

CreationTime = DateTime. FromFileTimeUtc ( ( ( (long) ftCreationTime. dwHighDateTime) << 32) | ( (uint) ftCreationTime. dwLowDateTime));

LastAccessTime = DateTime. FromFileTimeUtc ( ( ( (long) ftLastAccessTime. dwHighDateTime) << 32) | ( (uint) ftLastAccessTime. dwLowDateTime));

LastWriteTime = DateTime. FromFileTimeUtc ( ( ( (long) ftLastWriteTime. dwHighDateTime) << 32) | ( (uint) ftLastWriteTime. dwLowDateTime));

}

catch (Exception ex)

{

throw (ex);

}

finally

{

if (ptr! = IntPtr. Zero && ptr. ToInt32 ()! = INVALID_HANDLE_VALUE) CloseHandle (ptr);

}

label25. Text = CreationTime. ToString ();

label45. Text = LastAccessTime. ToString ();

label44. Text = LastWriteTime. ToString ();

}

private void button2_Click (object sender, EventArgs e)

{

}

private void refreshRegData ()

{

label46. Text = "";

label47. Text = "";

label48. Text = "";

label49. Text = "";

label50. Text = "";

label51. Text = "";

RegistryKey key = Registry. CurrentUser. OpenSubKey ("Software"). OpenSubKey ("Microsoft"). OpenSubKey ("Visual Basic"). OpenSubKey ("6.0"). OpenSubKey ("AddInToolbar"). OpenSubKey ("VB Class Builder Utility");

if (key == null)

{

MessageBox. Show ("Не вдалося відкрити ключ реєстра VB 6 Class Builder", "Помилка", MessageBoxButtons. OK, MessageBoxIcon. Error);

return;

}

string [] subkeys = key. GetValueNames ();

if (subkeys. Length == 0)

{

MessageBox. Show ("Ключ рестра VB 6 Class Builder не містить значень", "Увага", MessageBoxButtons. OK, MessageBoxIcon. Information);

return;

}

else

{

foreach (string valueName in subkeys)

{

label46. Text += (valueName + "\n");

label47. Text += (key. GetValue (valueName) + "\n");

}

}

key. Close ();

key = Registry. CurrentUser. OpenSubKey ("Control Panel"). OpenSubKey ("Keyboard");

if (key == null)

{

MessageBox. Show ("Не вдалося відкрити ключ реєстра з параметрами клавіатури.", "Помилка", MessageBoxButtons. OK, MessageBoxIcon. Error);

return;

}

subkeys = key. GetValueNames ();

if (subkeys. Length == 0)

{

MessageBox. Show ("Ключ рестра з параметрами клавіатури не містить значень", "Увага", MessageBoxButtons. OK, MessageBoxIcon. Information);

return;

}

else

{

foreach (string valueName in subkeys)

{

label49. Text += (valueName + "\n");

label48. Text += (key. GetValue (valueName) + "\n");

}

}

key. Close ();

key = Registry. LocalMachine. OpenSubKey ("SOFTWARE"). OpenSubKey ("Microsoft"). OpenSubKey ("Internet Explorer");

if (key == null)

{

MessageBox. Show ("Не вдалося відкрити ключ реєстра з параметрами Internet Explorer.", "Помилка", MessageBoxButtons. OK, MessageBoxIcon. Error);

return;

}

subkeys = key. GetValueNames ();

if (subkeys. Length == 0)

{

MessageBox. Show ("Ключ рестра з параметрами Internet Explorer не містить значень", "Увага", MessageBoxButtons. OK, MessageBoxIcon. Information);

return;

}

else

{

foreach (string valueName in subkeys)

{

label51. Text += (valueName + "\n");

label50. Text += (key. GetValue (valueName) + "\n");

}

}

key. Close ();

}

private void MainWindow_KeyDown (object sender, KeyEventArgs e)

{

if (e. KeyCode == Keys. F1)

{

Help. ShowHelp (this, helpProvider1. HelpNamespace);

}

else if (e. Shift == true && e. Control == true && e. Alt == true && e. KeyCode == Keys. A)

{

MessageBox. Show ("Автор програми - Черненко Андрій Юрійович\nстудент групи АС-082. \nУсі права захищені (с)", "Автор", MessageBoxButtons. OK, MessageBoxIcon. Information);

}

}

private void button2_Click_1 (object sender, EventArgs e)

{

Help. ShowHelp (this, helpProvider1. HelpNamespace);

}

}

[StructLayout (LayoutKind. Sequential)]

public class OSVersionInfoEx

{

public int dwOSVersionInfoSize;

public int dwMajorVersion;

public int dwMinorVersion;

public int dwBuildNumber;

public int dwPlatformId;

[MarshalAs (UnmanagedType. ByValTStr, SizeConst = 128)]

public string szCSDVersion;

public short wServicePackMajor;

public short wServicePackMinor;

public short wSuiteMask;

public byte wProductType;

public byte wReserved;

}

[StructLayout (LayoutKind. Sequential)]

public struct SystemInfo

{

public uint dwOemId;

public uint dwPageSize;

public uint lpMinimumApplicationAddress;

public uint lpMaximumApplicationAddress;

public uint dwActiveProcessorMask;

public uint dwNumberOfProcessors;

public uint dwProcessorType;

public uint dwAllocationGranularity;

public uint dwProcessorLevel;

public uint dwProcessorRevision;

}

[StructLayout (LayoutKind. Sequential, CharSet = CharSet. Auto)]

public class MemoryStatusEx

{

public uint dwLength;

public uint dwMemoryLoad;

public ulong ullTotalPhys;

public ulong ullAvailPhys;

public ulong ullTotalPageFile;

public ulong ullAvailPageFile;

public ulong ullTotalVirtual;

public ulong ullAvailVirtual;

public ulong ullAvailExtendedVirtual;

public MemoryStatusEx ()

{

this. dwLength = (uint) Marshal. SizeOf (typeof (MemoryStatusEx));

}

}

[StructLayout (LayoutKind. Sequential)]

public struct FileTime

{

public uint dwLowDateTime;

public uint dwHighDateTime;

}

public enum DriveType: uint

{

Unknown = 0, // DRIVE_UNKNOWN

Error = 1, // DRIVE_NO_ROOT_DIR

Removable = 2, // DRIVE_REMOVABLE

Fixed = 3, // DRIVE_FIXED

Remote = 4, // DRIVE_REMOTE

CDROM = 5, // DRIVE_CDROM

RAMDisk = 6 // DRIVE_RAMDISK

}

}

Додаток 2. Лістинг додатка "specs WMI"

1. Program. cs - точка входу, початкова процедура програми:

using System;

using System. Collections. Generic;

using System. Linq;

using System. Windows. Forms;

namespace specs_wmi

{

static class Program

{

// / <summary>

// / The main entry point for the application.

// / </summary>

[STAThread]

static void Main ()

{

Application. EnableVisualStyles ();

Application. SetCompatibleTextRenderingDefault (false);

Application.run (new Form1 ());

}

}

}

2. Form1. cs - головна форма програми, реалізує основну функціональність:

using System;

using System. Collections. Generic;

using System.componentModel;

using System. Data;

using System. Drawing;

using System. Linq;

using System. Text;

using System. Windows. Forms;

using System. Management;

namespace specs_wmi

{

public partial class Form1: Form

{

public Form1 ()

{

InitializeComponent ();

getSystemData ();

getRegistryData ();

ManagementObjectSearcher mosDisks = new ManagementObjectSearcher ("SELECT * From Win32_LogicalDisk");

foreach (ManagementObject moDisk in mosDisks. Get ())

{

comboBox1. Items. Add (moDisk ["Caption"]. ToString ());

}

comboBox1. SelectedIndex = 0;

}

private void getRegistryData ()

{

label46. Text = "";

label47. Text = "";

label48. Text = "";

label49. Text = "";

label50. Text = "";

label51. Text = "";

ConnectionOptions options = new ConnectionOptions ();

options. EnablePrivileges = true;

options. Impersonation = ImpersonationLevel. Default;

ManagementScope scope = new ManagementScope ("\\\\. \\root\\default");

scope. Connect ();

System. Management. ManagementClass mc;

try

{

mc = new System. Management. ManagementClass ("StdRegProv");

ManagementBaseObject inParams = mc. GetMethodParameters ("EnumValues");

inParams ["hDefKey"] = (UInt32) 2147483649;

inParams ["sSubKeyName"] = "Software\\Microsoft\\Visual Basic\\6.0\\AddInToolbar\\VB Class Builder Utility";

ManagementBaseObject outParams;

try

{

outParams = mc. InvokeMethod ("EnumValues", inParams, null);

string [] names = (string []) outParams ["sNames"];

int [] types = (int []) outParams ["Types"];

for (int i = 0; i < names. Length; i++)

{

label46. Text += names [i] + "\n";

switch (types [i])

{

case 1:

inParams = mc. GetMethodParameters ("GetStringValue");

inParams ["hDefKey"] = (UInt32) 2147483649;

inParams ["sSubKeyName"] = "Software\\Microsoft\\Visual Basic\\6.0\\AddInToolbar\\VB Class Builder Utility";

inParams ["sValueName"] = names [i];

outParams = mc. InvokeMethod ("GetStringValue", inParams, null);

label47. Text += outParams ["sValue"]. ToString () + "\n";

break;

case 2:

inParams = mc. GetMethodParameters ("GetExpandedStringValue");

inParams ["hDefKey"] = (UInt32) 2147483649;

inParams ["sSubKeyName"] = "Software\\Microsoft\\Visual Basic\\6.0\\AddInToolbar\\VB Class Builder Utility";

inParams ["sValueName"] = names [i];

outParams = mc. InvokeMethod ("GetExpandedStringValue", inParams, null);

label47. Text += outParams ["sValue"]. ToString () + "\n";

break;

case 3:

inParams = mc. GetMethodParameters ("GetBinaryValue");

inParams ["hDefKey"] = (UInt32) 2147483649;

inParams ["sSubKeyName"] = "Software\\Microsoft\\Visual Basic\\6.0\\AddInToolbar\\VB Class Builder Utility";

inParams ["sValueName"] = names [i];

outParams = mc. InvokeMethod ("GetBinaryValue", inParams, null);

byte [] val = (byte []) outParams ["uValue"];

foreach (byte b in val) label47. Text += b. ToString () + "\n";

break;...