Subversion Repositories Kolibri OS

Rev

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

Rev 938 Rev 944
Line 6... Line 6...
6 
	dword	param4;
 6 
	dword	param4;
7 
	char	rezerv;
 7 
	char	rezerv;
8 
	dword	name;
 8 
	dword	name;
9 
};
 9 
};
Line -... Line 10...
- 
 
 10 
 
- 
 
 11 
////////////////////////////
- 
 
 12 
//     Ïðî÷èòàòü ôàéë     //
- 
 
 13 
////////////////////////////
- 
 
 14 
f70 read_file_70;
- 
 
 15 
void ReadFile(dword pos, file_size, read_buffer, file_path)
- 
 
 16 
{
- 
 
 17 
	read_file_70.func = 0;
- 
 
 18 
	read_file_70.param1 = pos;
- 
 
 19 
	read_file_70.param2 = 0;
- 
 
 20 
	read_file_70.param3 = file_size;
- 
 
 21 
	read_file_70.param4 = read_buffer;
- 
 
 22 
	read_file_70.rezerv = 0;
- 
 
 23 
	read_file_70.name = file_path;
- 
 
 24 
	$mov eax,70
- 
 
 25 
	$mov ebx,#read_file_70.func
- 
 
 26 
	$int 0x40
- 
 
 27 
}
- 
 
 28 
 
- 
 
 29 
///////////////////////////
- 
 
 30 
//    Ïðî÷èòàòü ïàïêó    //
- 
 
 31 
///////////////////////////
- 
 
 32 
f70 read_dir_70;
- 
 
 33 
void ReadDir(dword file_count, read_buffer, read_dir_path)
- 
 
 34 
{
- 
 
 35 
	read_dir_70.func = 1;
- 
 
 36 
	read_dir_70.param1 = 0;
- 
 
 37 
	read_dir_70.param2 = 0;
- 
 
 38 
	read_dir_70.param3 = file_count;
- 
 
 39 
	read_dir_70.param4 = read_buffer;
- 
 
 40 
	read_dir_70.rezerv = 0;
- 
 
 41 
	read_dir_70.name = read_dir_path;
- 
 
 42 
	$mov eax,70
- 
 
 43 
	$mov ebx,#read_dir_70.func
- 
 
 44 
	$int 0x40
Line 10... Line 45...
10 
 
 45 
}
11 
 
 46 
 
12 
///////////////////////////
 47 
///////////////////////////
13 
//   Çàïóñê ïðîãðàììû    //
 48 
//   Çàïóñê ïðîãðàììû    //
Line 62... Line 97...
62 
	$mov ebx,#del_file_70.func
 97 
	$mov ebx,#del_file_70.func
63 
	$int 0x40
 98 
	$int 0x40
64 
}
99 
}
Line 65... Line 100...
65 
 
 100 
 
66 
///////////////////////////
 - 
 
67 
//    Ïðî÷èòàòü ïàïêó    //
 - 
 
68 
///////////////////////////
 - 
 
69 
f70 read_dir_70;
 - 
 
70 
void ReadDir(dword file_count, read_buffer, read_dir_path)
 - 
 
71 
{
- 
 
72 
	read_dir_70.func = 1;
 - 
 
73 
	read_dir_70.param1 =
- 
 
74 
	read_dir_70.param2 =
- 
 
75 
	read_dir_70.rezerv = 0;
 - 
 
76 
	read_dir_70.param3 = file_count;
 - 
 
77 
	read_dir_70.param4 = read_buffer;
 - 
 
78 
	read_dir_70.name = read_dir_path;
 - 
 
79 
	$mov eax,70
 - 
 
80 
	$mov ebx,#read_dir_70.func
 - 
 
81 
	$int 0x40
 - 
 
82 
}
- 
 
83 
 
 - 
 
84 
///////////////////////////
 101 
///////////////////////////
85 
//   Ñêîïèðîâàòü ôàéë    //
 102 
//   Ñêîïèðîâàòü ôàéë    //
86 
///////////////////////////
 103 
///////////////////////////
87 
f70	CopyFile_f;
 104 
f70	CopyFile_f;
88 
inline fastcall dword CopyFile(dword EBX,ECX)
 105 
inline fastcall dword CopyFile(dword EBX,ECX)
Line 101... Line 118...
101 
	$int 0x40
 118 
	$int 0x40
Line 102... Line 119...
102
119
103 
	if (!EAX)
 120 
	if (!EAX)
104 
	{
121 
	{
105 
		cBufer = malloc(CopyFile_atr.sizelo);
- 
 
106 
		CopyFile_f.func = 0;
 - 
 
107 
		CopyFile_f.param1 = 0;
 - 
 
108 
		CopyFile_f.param2 = 0;
 122 
		cBufer = malloc(CopyFile_atr.sizelo);
109 
		CopyFile_f.param3 = CopyFile_atr.sizelo;
 - 
 
110 
		CopyFile_f.param4 = cBufer;
 - 
 
111 
		CopyFile_f.rezerv = 0;
 - 
 
112 
		CopyFile_f.name = s;
 - 
 
113 
		$mov eax, 70
 - 
 
114 
		$mov ebx, #CopyFile_f
 - 
 
Line 115... Line 123...
115 
		$int 0x40
 123 
		ReadFile(dword 0, CopyFile_atr.sizelo, cBufer, s);
116
124
117 
		IF (!EAX)
 125 
		IF (!EAX)
118 
		{
 126 
		{