| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

boot [D6, Win2k]

KIE ©   (2003-10-25 09:45:00) 

Кто знает как на низком уровне работать с загрузочной части винта??? Подкиньте где инфы накопать можно ... pls

---

NikNet   (2003-11-07 12:20:00) [1]

Удалено модератором
Примечание: Личная переписка

---

KosilkA   (2003-10-27 13:40:00) [2]

> Balepa (26.10.03 00:46) [4]

ууууууууухахахахаха

---

Balepa   (2003-10-26 00:46:00) [3]

При выполнении прога зацикливается не могу понять почему
вот код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
x: Integer;
Function mm(x: Integer): Integer;
implementation

Function mm;
begin
Randomize;
repeat
mm:= Random(x);
until x>0;
end;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
type
digit = set of 1..15;
var
s: digit;
a: array[1..15] of Integer;
c, i: Integer;
k: Boolean;
begin
c:=0;
k:= True;
repeat
if k=True then
inc(c);
x:= mm(16);
if x in s then
begin
exclude(s,x);
a[c]:= x;
k:= True;
end
else
k:= False;
until c>=15;
for i:= 1 to 15 do
Edit1.Text:= Edit1.Text+" "+IntToStr(a[i]);
end;

end.

---

Dima_dvp   (2003-10-25 23:58:00) [4]

Если надо могу формат Загр записи выслать

---

Chlavik   (2003-10-25 14:09:00) [5]

Лучше в Real Mode будет безопаснее ...

---

Ihor Osov'yak   (2003-10-25 12:00:00) [6]

Ищи методы доступа к физическим устройствам. В MSDN довольно подробно описано. Платформозависимо (то есть по разному для NT-ряда и W9X).

---

Наверх