Question

delphi7 中怎么执行MS-DOS命令？怎么嵌入汇编？要是能具体的举个例子就太完美了。谢谢

Answer 1

1. 执行DOS命令 procedure TForm1.btn_1Click(Sender: TObject); begin WinExec('cmd.exe /k ipconfig /all',SW_SHOW); end; 2.嵌入汇编 procedure TForm1.Button1Click(Sender: TObject); var a: integer; begin asm mov ecx, 10 mov a, ecx end; ShowMessage(IntToStr(a)); end;