12.02.2009, 11:06
|
 |
Исполняемый Ретровирус
|
|
Регистрация: 09.08.2008
Адрес: Umbrella Corporation
Сообщения: 743
Репутация: 1293
|
|
Код:
User=record
Name:string[100];
pass:string[100];
r1:boolean;
r2:boolean;
end;
var
BIR: User;
.......................
FileStream.Write(BIR, SizeOf(BIR));
........................ |