str := 'c:\mysql\bin\mysql -h ' + txtIP.Text + ' -u ' + txtID.Text + ' -p' + txtPass.Text + ' ' + txtDBName.Text + ' < ' + GetCurrentDir + '\setup.sql';
WinExec( PChar( 'c:\mysql\bin\mysqladmin -h ' + txtIP.Text + ' -u ' + txtID.Text + ' -p' + txtPass.Text + ' create ' + txtDBName.Text ), SW_HIDE );
WinExec( PChar( str ), SW_HIDE );
이렇게 해서 SQL 화일로 된 자료를 넣으려고 합니다.
물론 그냥 도스상태에서 명령어를 실행하면 무리없이 실행되구요...
근데 문제는 프로그램에서 하면 안된다는게 문제거든요....
하다못해 도스창이 뜨는 것이 스스로 닫히지만 않아도 좋을것 같은데 것두 안되네요...
머가 문제인지 통....
도스창이 내용만 봐선 문제점을 찾기 힘드네요..
일단 도스창이 안닫히게 하는예제를 드릴께요.. 찬찬히 잡아보세요..
ex) WinExec('cmd.exe /k ' + str, SW_SHOWNORMAL);
윈도그 9x 계열이시라면 cmd.exe 대신에 command.exe 로 바꾸세요.
위처럼 하시면 도스창이 닫히지 않을겁니다.
그럼 즐거운 프로그래밍 하세요~