카테고리 없음

[일반/컴포넌트] 특정한 폴더로 이동한 DOS 창 띄우기

쇼핑스크래퍼2 2023. 9. 13. 07:18
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: String;
begin
  Dir := '';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
  begin
    // /k 파라미터는 문자열로 지정한 명령 실행 후 계속합니다
    // /c 파라미터는 문자열로 지정한 명령 실행 후 되돌아갑니다
    WinExec(PChar('command.com /k cd '+Dir), SW_SHOWNORMAL);

    // Windows NT 의 경우는 아래처럼 명령어 해석기를 cmd.exe 로 바꾸어야 합니다
    // WinExec(PChar('cmd.exe /k cd '+Dir), SW_SHOWNORMAL);
  end;
end;

end.