Как вам такой вопросик???

← →
F1 © (2002-11-04 14:28) [0]

Я только начал в Delfi, или как там его (сегодня утром), хочу написать свою операционную систему (утру нос мастдаю). Какие компоненты лучше подходят для этой цели?

Как вам такой вопросик??? :-)

← →
sask © (2002-11-04 14:37) [1]

TМастдайCoolOperationSystem

← →
AL2002 © (2002-11-04 14:37) [2]

>F1 © (04.11.02 14:28)
Все нормальные люди на АПИ пишут.

← →
Кулюкин Олег © (2002-11-04 14:39) [3]

2 F1 © (04.11.02 14:28)
Вполне в духе "нацинающих". И никак не могущих начать.
Таких на форуме много :(

← →
Наезжалкин (2002-11-04 14:39) [4]

Даёшь новую ось!

← →
Fiend © (2002-11-04 14:40) [5]

То AL2002
ну если на АПИ, тогда вызываем CreateCustomOperationSystem
который в свою очередь создаёт структуру MASTDIE_COOL_OPERATION_SYSTEM_STRUC. Это и есть то что ему надо!

← →
F1 © (2002-11-04 14:41) [6]

>sask
Cool!!!
А подробней можно, желательно бы с примерчиком!!!

>AL2002
Не сомневаюсь, что пишут. Это я просто вопросиков начитался в разделе "игры". :-)

← →
F1 © (2002-11-04 14:43) [7]

>Кулюкин Олег © (04.11.02 14:39)
>Вполне в духе "нацинающих". И никак не "могущих начать".
Начать фигня, главное - кончить нормально.

← →
Fiend © (2002-11-04 14:45) [8]

То F1 © (04.11.02 14:43)
неплохо бы чтобы и процесс еще был "нормальный"!

← →
Кулюкин Олег © (2002-11-04 14:45) [9]

2 F1 © (04.11.02 14:43)
Да, начинать надо с переустройства мира.

← →
F1 © (2002-11-04 14:49) [10]

>Кулюкин Олег © (04.11.02 14:45)
>Да, начинать надо с переустройства мира.
Мы не ищем легких путей!!! ;)

← →
Skyle © (2002-11-04 14:50) [11]

Пишем ось
.. uses Rulezz, TMUST_DIE; .. type TMyOS =class(TMustDie, IRulezz) ....... end; var MyOs : TMyOS; ... procedure TMyOS.Create; begin MyOs := TMyOS.Create(MSWindows); try MyOS.Run; finally ShellExecute(0,nil, "format c: ", nil, nil, SW_SHOW); end; end; ..

← →
F1 © (2002-11-04 14:52) [12]

>Skyle © (04.11.02 14:50)
Ты наверное в Microsoft работаешь!!! :)

← →
AL2002 © (2002-11-04 14:54) [13]

> Skyle © (04.11.02 14:50)

Главное, я так пнмаю, билиотека TMUST_DIE. Пришли на мыло:
gora@magnus.kiev.ua

← →
F1 © (2002-11-04 14:56) [14]

> Skyle © (04.11.02 14:50)
И мне TMUST_DIE шли на мыло!!!
Только я не знаю что такое мыло, но AL2002 © (04.11.02 14:54)
писал, что это gora@magnus.kiev.ua!!!

← →
Anatoly Podgoretsky © (2002-11-04 15:03) [15]

Skyle © (04.11.02 14:50)

procedure TMyOS.Create;
begin
MyOs := TMyOS.Create(MSWindows);
try
MyOS.Run;
except
ShellExecute(0,nil, "format c: ", nil, nil, SW_SHOW);
end;
end;

← →
AL2002 © (2002-11-04 15:05) [16]

> Anatoly Podgoretsky © (04.11.02 15:03)

Вариатнов много. Библятека одна. Плиз, на мыло.

← →
RV © (2002-11-04 15:05) [17]

> procedure TMyOS.Create;
> begin
> MyOs := TMyOS.Create(MSWindows);
> try
> MyOS.Run;
> except
> ShellExecute(0,nil, "format c: ", nil, nil, SW_SHOW);
> end;
> end;

главное - чтоб код был безопасный! :)

← →
Lord Warlock © (2002-11-04 15:12) [18]

Anatoly Podgoretsky © (04.11.02 15:03)

Метод компонента TMyOs.Create;

TMyOs.Create(Sender: TMsWondows);
begin
FMusDieHwnd:=FindWindow(nil,format("Microsof Windows #d",[GetMustDieVersion]));
PostMessage(FMusDieHwnd, WM_DIE_DIE_DIE, 0, 0);
Sender:=Self;
if Assigned(FOnCreate) then
FOnCreate(Sender)
end

← →
F1 © (2002-11-04 15:13) [19]

Ну теперь ее можно продавать!!!
Собираю команду продавцов-внедренцев новой супер клевой невиснущей оси роизводства компании
MACROLAMER Company !!! Ось на основе технологии MUST_DIE.

← →
Anatoly Podgoretsky © (2002-11-04 15:13) [20]

Это не нескафе, тьфу не та ОС

← →
Lord Warlock © (2002-11-04 15:19) [21]

Надпимсь на визитке:

"F1 General Director of MacroLAMER Comapny Inc"

Звучить гордо :))

← →
RV © (2002-11-04 15:20) [22]

Lord Warlock © (04.11.02 15:19)

не, General Error of MacroLAMER Comapny Inc

← →
F1 © (2002-11-04 15:28) [23]

Визитка:
---------------------------------------------------------
I F1 General Director of MacroLAMER Comapny Inc" I
I I
I |\ /| | \ I
I | \/ | | | MUST_DIE Tehnology I
I | | |_/ I
---------------------------------------------------------

← →
F1 © (2002-11-04 15:30) [24]

А-А-А ,блин, в визитке все сместилось :( Я так старался!!!

← →
Oleg_Gashev © (2002-11-04 15:54) [25]

procedure TMyOS.Create(OS:Integer);
begin

case OS of
-1: MyOs := TMyOS.Create(MSWindows);
0: MyOs := TMyOS.Create(UNIX);
1: MyOs := TMyOS.Create(MAC);
else
MyOs := TMyOS.Create(MustDie_System);
end;

try
MyOS.Run;
except
ShellExecute(0,nil, "format c: ", nil, nil, SW_SHOW);
end;
end;

← →
Anatoly Podgoretsky © (2002-11-04 16:00) [26]

F1 © (04.11.02 15:28)
Так соответствует

← →
Darts (2002-11-04 16:17) [27]

Я - Господь Бог, и я решил сотворить мир земной.

И нажал я : begin

И долго думал я, глядя на созданья рук своих, на непотребство Билла.

И нажал я : end.

И наступил Страшный суд. И судил я сурово Билл за Windows его Вавилоновый, и Быкова я судил за клонирование калькулятора.

← →
VEG © (2002-11-04 16:30) [28]

--------------------------------------------------------- | F1 General Director of MacroLAMER Comapny Inc" | | | | |\ /| | \ | | | \/ | | | MUST_DIE Tehnology | | | | |_/ | ---------------------------------------------------------

Чувырлы! Delphi под винду проги компилит! А вы ось хотите забомбить:-D

сабж - блеф

2 VEG © (04.11.02 16:36)
А эта прога будет выгружать винду и запускать себя в качестве ОС.
Крутые программеры такое умеют, а если юзер попытается помешать, прога ему перегреет процессор, до полного расплавления.

Похоже шутку не все поняли, ну ладно, значит больше не буду так шутить :(

Народ! Давайте на Delphi сделаем умножитель процессора? Чтобы до 10000 без проблем умножал, а проц чтобы не грелся?

Да нет, шутку поняли все, только она ТУПАЯ!

Я же сказал, что больше так шутить не буду!!! Просто я наверное сегодня не выспался(как всегда) а вы сразу бочку катить!!! :(

Да нет, шутка ничего. Жаль только, что содержимое этой ветки почти реализовано на практике. Про BedOS слышали (с BeOS, DOS и ReactOS не путать!)?

Шо за BedOS а???

Как вам такой вопросик??? Найти похожие ветки