boot

← →
KIE (2003-10-25 09:45) [0]

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

← →
Ihor Osov'yak © (2003-10-25 12:00) [1]

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

← →
Chlavik © (2003-10-25 14:09) [2]

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

← →
Dima_dvp © (2003-10-25 23:58) [3]

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

← →
Balepa (2003-10-26 00:46) [4]

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

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.

> Balepa (26.10.03 00:46) [4]

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

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

boot Найти похожие ветки