Simuler MSDOS

Til hvilket styrresystem?

Præcis hvad har du gang i ? Fordu Dir, copy delete etc kan alle laves i Delphi. Meget  bedere.

Jens B

Konsol-applikationer er meget 'DOS-agtige' ?.

Det forekommer mig i øvrigt at når en konsol-applikation er 'færdig, tager den input helt svarende til dos-promptet ? exit fx virker fint efter gennemløb af fx dette

program RegneStykker;
{$APPTYPE CONSOLE}
uses SysUtils;
var
  nr,a,b,antal,rigtige,ab:Integer;
begin
  rigtige:=0; randomize;
  write('Hvor mange gangestykker vil du have? (h›jst 20) '); readln(antal);
  for nr:=1 to antal do
  begin
    a:=random(20)+1; b:=random(20)+1;
    writeln; write(nr,' sp›rgsm†l: Hvad er ',a,' gange ',b,' ? '); readln(ab);
    if ab = a*b then
    begin
      rigtige:=rigtige+1;
      writeln( 'Det er rigtigt!')
    end else writeln('Forkert! ',a,'*',b,' = ',a*b);
  end;
  writeln;
  if rigtige> antal div 2 then
    writeln('Det var flinkt! ',rigtige,' rigtige svar ud af ',antal)
  else writeln('Det var flovt! Kun ',rigtige,' rigtige svar ud af ',antal);
  readln
end.

men jeg kan ikke huske så mange DOS-ting mere ...  prøv det da .=)

Nej, det er kun exit, der virker så der skal nok mere til.

jeg så dette program, der similerer en dir: måske kan du buge det til noget:

unit listfilimemo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var
  SR: TSearchRec;
begin
  Memo1.Lines.Clear;
  if FindFirst(Edit1.Text + '\*.*', faAnyFile, SR) = 0 then
    while FindNext(SR) = 0 do
    begin
      if (SR.Name <> '.') and (SR.Name <> '..') then
      begin
        Memo1.Lines.Add(SR.Name);
      end;
   
end;
end;

end.