Прерывания, Апи и тд

[gen]

Господа. Лазарус это все же не Делфи. А линукс это не винда.
Полагаю такой код работать в Лазарусе не будет

Код: Выделить всё

  if GetSystemMetrics(SM_NETWORK) and $01 = $01 then
   ShowMessage('Computer is attached to a network!')
else
   ShowMessage('Computer is not attached to a network!');

Хорошо. Тогда такие вопросы. Есть ли замена Апи ф-иям? Какие прерывания в линуксе(21н нету наверно)? Можно ли в нем юзать встроенный ассемблер(можно небольшой код-пример,если не трудно(оформление важно посмотреть))

[Mr.Smart]

Полагаю такой код работать в Лазарусе не будет

Будет (только в Windows) если добавить в uses модуль Windows.

Есть ли замена Апи ф-иям?

Некто вам незапрещает пользоваться непосредственно API функцимя той ОС под которую пишите.

Можно ли в нем юзать встроенный ассемблер

Можно. Как и в Delphi. Только есть одно, но. В FreePascal используются ассемблеры с двумя разнами мнемониками комманд Intel и AT&T. выбирается директивой

Код: Выделить всё

{$ASMMODE INTEL}
asm
...
end;
{$ASMMODE ATT}
asm
...
end;


[gen]

А понял... Не то написал. Я тасм изучал раньше. Интел то есть писать для такой мнемоники?

[Mr.Smart]

TASM - поодерживает толко мнемонику Intel.

[gen]

получается что так писать надо?

Код: Выделить всё

function fff(f:integer):integer;  register;
begin
{$ASMMODE INTEL}
asm

end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
fr:integer;
begin
fr:=1;
fff(fr);

end;


А так нельзя?

Код: Выделить всё

function fff(f:integer):integer;  register;
{$ASMMODE INTEL}
asm

end;

Просто в книге Гуида Гейбелса 2 вариант типо. Хотя там для Делфи