Subversion Repositories Kolibri OS

Rev

Rev 5483 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5483 Rev 5487
Line 1... Line 1...
1 
struct f70{
 1 
:struct f70{
2 
	dword	func;
 2 
	dword	func;
3 
	dword	param1;
 3 
	dword	param1;
4 
	dword	param2;
 4 
	dword	param2;
5 
	dword	param3;
 5 
	dword	param3;
6 
	dword	param4;
 6 
	dword	param4;
7 
	char	rezerv;
 7 
	char	rezerv;
8 
	dword	name;
 8 
	dword	name;
9 
};
 9 
};
Line 10... Line 10...
10 
 
 10 
 
- 
 
 11 
:struct date
- 
 
 12 
{
- 
 
 13 
	byte day;
11 
struct BDVK{
 14 
	byte month;
- 
 
 15 
	word year;
- 
 
 16 
};
- 
 
 17 
 
- 
 
 18 
:struct BDVK {
12 
	dword	attr;
 19 
	dword	readonly:1, hidden:1, system:1, volume_label:1, isfolder:1, notarchived:1, :0;
13 
	byte	type_name;
 20 
	byte	type_name;
14 
	byte	rez1, rez2, selected;
 21 
	byte	rez1, rez2, selected;
15 
	dword	timecreate;
 22 
	dword   timecreate;
16 
	dword	datecreate;
 23 
	date 	datecreate;
17 
	dword	timelastaccess;
 24 
	dword	timelastaccess;
18 
	dword	datelastaccess;
 25 
	date	datelastaccess;
19 
	dword	timelastedit;
 26 
	dword	timelastedit;
20 
	dword	datelastedit;
 27 
	date	datelastedit;
21 
	dword	sizelo;
 28 
	dword	sizelo;
22 
	dword	sizehi;
 29 
	dword	sizehi;
23 
	char	name[518];
 30 
	char	name[518];
Line -... Line 31...
- 
 
 31 
};
- 
 
 32 
 
- 
 
 33 
 
- 
 
 34 
:void DrawDate(dword x, y, color, dword in_date)
- 
 
 35 
{
- 
 
 36 
	EDI = in_date;
- 
 
 37 
	EAX = 47;
- 
 
 38 
	EBX = 2<<16;
- 
 
 39 
	EDX = x<<16+y;
- 
 
 40 
	ESI = 0x80<<24+color;
- 
 
 41 
	ECX = EDI.date.day;
- 
 
 42 
	$int 0x40;
- 
 
 43 
	EDX += 18<<16;
- 
 
 44 
	ECX = EDI.date.month;
- 
 
 45 
	$int 0x40;
- 
 
 46 
	EDX += 18<<16;
- 
 
 47 
	EBX = 4<<16;
- 
 
 48 
	ECX = EDI.date.year;
- 
 
 49 
	$int 0x40;
24 
};
 50 
}
25 
 
 51 
 
26 
 
 52 
 
27 
///////////////////////////
 53 
///////////////////////////
28 
//   Ïàðàìåòðû ôàéëà    //
 54 
//   Ïàðàìåòðû ôàéëà    //
Line 152... Line 178...
152 
 
 178 
 
153 
:char isdir(dword fpath)
 179 
:char isdir(dword fpath)
154 
{
 180 
{
155 
	BDVK fpath_atr;
 181 
	BDVK fpath_atr;
156 
	GetFileInfo(fpath, #fpath_atr);
 182 
	GetFileInfo(fpath, #fpath_atr);
157 
	if (TestBit( fpath_atr.attr, 4)) return 1; else return 0;
 183 
	return fpath_atr.isfolder;
Line 158... Line 184...
158 
}
 184 
}
159 
 
 185 
 
160 
:int GetFile(dword buf, filesize, read_path)
 186 
:int GetFile(dword buf, filesize, read_path)