테스트를 할려구 간단한 프로그래을 작성해봤어요.
근데, 자꾸만 이런에러가뜨네요
[Fatal Error] Could not create output file 'C:DelphiworkWinExeccc.exe'
먼저 소스를 보여드리겠습니다.
main
procedure TForm1.Button1Click(Sender: TObject);
var
PStr : array [0..255] of Char;
begin
StrPCopy(PStr, 'cc.exe' + ' ' + '1' + ' ' + '2' + ' '
+ '3' + ' ' + '4' + ' ');
WinExec(PStr, SW_Show);
end;
function TForm1.Get_ProgramPath(S : String) : String;
begin
S := ExtractFilePath(S);
if S[Length(S)] <> '' then S := S + '';
Result := S;
end;
=============================================================
cc
procedure TForm1.FormCreate(Sender: TObject);
var
sPGPath : String;
begin
sPGPath := Get_ProgramPath(Application.ExeName);
if ParamCount<3 then Application.Terminate;
Edit1.Text := IntToStr(ParamCount);
Edit2.Text := ParamStr(1);
Edit3.Text := ParamStr(2);
Edit4.Text := ParamStr(3);
end;
여기에서요.. main에서 버튼을 클릭하면, cc.exe를 실행시킵니다.
2개의 프로젝트 파일은 같은 폴더에 두었구요..
처음에 한번을 실행이 잘됩니다.
main에서 cc.exe를 실행시키니까, 바른정보로 뜨더라구요..
근데, 그담부터 문제의 [Fatal Error] Could not create output file 'C:DelphiworkWinExeccc.exe' 이 에러가 뜨는겁니다.
그래서, 제가 같은 폴더에서 cc.exe를 dd.exe로 바꿔봤습니다.
그랬더니, 한번을 실행이 잘되고 또 [Fatal Error] Could not create output file 'C:DelphiworkWinExecdd.exe'이 에러가 뜨더군요..
도대체 어떻게 된일일까요?
답변부탁드립니다.
그리고 [Fatal Error]는 뭐 어떤건지요?..
한가지 이상한게 있따면...
Get_ProgramPath 프로시져가 실행시키는 파스에 있는게 아니라
실행되어지는 (cc.pas)에 존재해야한다는거...
하기야 님이 그걸 했으니.. 첨에 실행은 됐을테구...
"Fatal Error"에러는 현재 실행중에 있는 프로그램을 다시
컴파일할때, 또는 컴파일하면 생성되는 파일(exe)의 위치가
존재하지 않을때 나타나는 에러거든요...
허접이지만.. 하여튼 제가 보기엔 잘되구요..
나름대루 설명해봤슴다.... (__).. 그럼...