아래가 사용한 소스입니다. 에러 메세지는 아니구요
아래 "실행 실패"로 넘어 갑니다.
winexec의 사용법이 틀린걸까요?
그런데 델파이가 깔린 컴에서는 아주 잘 돌아갑니다.
아무 이상 업이요
procedure TFRMERPMAIN.SCMClick(Sender: TObject);
begin
if OpenCheck('PRJSCMMAIN1') then exit;
ObjCheck := 'SC';
if Auth_Check Then
begin
Application.Minimize;
Run_Command := 'c:\SJPRG\SCM\EXE\PRJSCMMAIN1.exe';
Run_Command := Run_Command + ' '+ User_ID + ' ' + Work_Date;
if Winexec(Pchar(Run_Command),SW_SHOW) < 32 then
begin
Application.Restore;
Application.BringToFront;
showmessage('실행 실패!!');
end;
end
else
begin
Application.MessageBox('실행 권한이 없슴니다!.',' 실행에러',mb_OK);
exit;
end;
end;
|