Q&A

  • Winexec
var
sFile : String;
begin
AdvDirectoryEdit1.Text := 'c:\mysql\data\test';
AdvDirectoryEdit2.Text := 'A:';
//Backup_jnpo.myi ,myd,frm 파일 은 있고요

sFile := 'cmd/c  Copy '+AdvDirectoryEdit1.Text+'\Backup_jnpo.* '+
           AdvDirectoryEdit2.Text);

if WinExec(Pchar(sFile),SW_SHOW) < 32 then
    ShowMessage('실패')
else
    ShowMessage('성공');


이렇게 하면 실패 즉 복사가 안돼는데 이유가 먼지
답변부탁드립니다

1  COMMENTS
  • Profile
    최도선 2006.02.24 22:13
    저는 잘되는 데요
    9번째 줄에 cmd/c   => cmd /c 로 스페이스를 줘야합니다.

    01>var
    02> sFile : String;
    03>begin
    04> AdvDirectoryEdit1.Text := 'c:\mysql\data\test';
    05> AdvDirectoryEdit2.Text := 'A:';
    06> //Backup_jnpo.myi ,myd,frm 파일 은 있고요
    07>
    09> sFile := 'cmd/c  Copy '+AdvDirectoryEdit1.Text+'\Backup_jnpo.* '+
    10>           AdvDirectoryEdit2.Text);
    11>
    12>if WinExec(Pchar(sFile),SW_SHOW) < 32 then
    13>    ShowMessage('실패')
    14> else
    15>    ShowMessage('성공');
    16>