#include <acknex.h>
#include <default.c>
#include <windows.h>

STRING* temp_str = "#50";
STRING* serial_str = "#10"; // this string stores the actual serial for the hard drive

var op_result; // this variable is set to zero if we can't get the serial of the hard drive
var filehandle;
var serial_low; // stores the LOWORD of serial_number
var serial_high; // stores the HIWORD of serial_number

DWORD serial_number; // this variable will store the serial number

char label_name[30]; // this string will store the label name of the current hard drive (not used in this demo)

FONT* arial_font = "Arial#36";

TEXT* serial_txt = // this text displays the serial of the hard drive on the screen
{
	layer = 15;
	pos_x = 10;
	pos_y = 20;
	font = arial_font;
	string (serial_str);
	flags = VISIBLE;
} 

function main()
{
	video_mode = 6; // create a program window of 640x480 pixels
	vec_set(screen_color, vector(55, 55, 55)); // make the background color dark
	// find more info about GetVolumeInformation() by looking it up in MSDN
	op_result = GetVolumeInformation(NULL, label_name, 30, &serial_number, NULL, NULL, NULL, 0);
	// label_name contains the name of the label for the current hard drive; use it as well if you want to
	// the operation has failed? Tell the user that something went wrong (don't tell him / her that you are using the hdd serial!)
	if (!op_result) 
	{
		str_cpy(temp_str, "Can't get the system information data. The operation has failed.");
	}
	else // the operation has succeeded
	{
		serial_high = ((WORD) (((DWORD) (serial_number) >> 16) & 0xFFFF)); // extract the HIWORD from serial_number
		serial_low = ((WORD) (serial_number));	// extract the LOWORD from serial_number
		str_cpy(serial_str, "Serial number: "); 
		str_for_num(temp_str, serial_high);
		str_cat(serial_str, temp_str);
		str_for_num(temp_str, serial_low);
		str_cat(serial_str, "-"); 
		str_cat(serial_str, temp_str); // display the serial number on the screen
		filehandle = file_open_write ("serial.txt"); // now create and open the file named serial.txt
		file_str_write (filehandle, serial_str); // write the serial number inside it - tell the user to email it to you
		file_close (filehandle); // close the file
		wait (-5); // display the serial number for a few seconds; it will be stored inside serial.txt anyway
		sys_exit(NULL); // now shut down the engine
	}
}