Código
Crie uma nova Aplicação e adicione um botão
no evento onclick do button insira o código:}
procedure TForm1.Button1Click(Sender: TObject);
begin
{Palavra reservada para trabalhar com assembly}
asm
mov ax,2eh
out 70h,ax
mov ax,2fh
out 71h,ax
end;//fim do ASM
end;
Abraços a todos Até mais!!
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009