自己开发的一个学习汇编的软件

jim19

开发完了就一直放着发霉了, 给有需要的人把程序附上了代码. 主要就是dosbox上套一个壳子, 代码写的比较烂, 还请多担待.






下载地址: https://sysfix.lanzoum.com/inQY912melgh

[Delphi] 纯文本查看 复制代码

procedure TForm1.btndebugClick(Sender: TObject);
var
  ts: TStringList;
  i: integer;
begin
  try
    ts := TStringList.Create;
    ts.LoadFromFile(ExtractFilePath(Application.ExeName) +
      'basic.conf');
    ts.Add('echo off');
    ts.Add('cls');
    ts.Add('mount c ' + ExtractFilePath(Application.ExeName));
    ts.Add('c:');

    ts.Add('cd bin');
    ts.Add('cls');
    ts.Add('debug.exe tempfile.exe');
    ts.Add('exit');
    ts.SaveToFile(ExtractFilePath(Application.ExeName) +
      'DOSBox.conf');


    RunFile('DOSBox.exe -noconsole');
    ts.SaveToFile(ExtractFilePath(Application.ExeName) +
      'dosbox.conf');
    delay(2000);
    try
      lstoutput.Clear;
      ts.LoadFromFile(ExtractFilePath(Application.ExeName) +
        'bin\out.dat');
      for i := 1 to ts.Count - 1 do
      begin
        lstoutput.Items.Add(ts.Strings[i]);
      end;
    except

    end;
  finally
    ts.Free;
  end;

end;

苏紫方璇

楼主请在帖子中插入部分核心代码吧（版规第一条，发布帖子必须带上关键代码和具体功能介绍）

jim19

苏紫方璇 发表于 2023-7-16 20:20
楼主请在帖子中插入部分核心代码吧（版规第一条，发布帖子必须带上关键代码和具体功能介绍）

好的, sorry 已插

FAFA

谢谢分享！~~~~~~~~~~~~~~~

lcylidong

感谢分享，收藏了。

3536825424

感谢分享👍

hjc2023

应该用处很大

名词

感谢分享，收藏了。

huhu9999

感谢分享，有时候用来回忆一下汇编指令挺好！

zsenbao

感谢分享，学习下。