카테고리 없음
[일반/컴포넌트] 특정한 폴더로 이동한 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.