[델파이] ShellExecute사용하기

프로그램을 띄우거나 파일을 실행할경우 ShellAPI 함수인 ShellExecute() 를 사용합니다. 
이 함수는 윈도우즈 탐색기에서 파일을 선택하고 더블클릭하는 기능과 동일한 동작을 합니다. 
다음은 ShellExecute() 의 몇가지 사용예입니다. 

(1) 파일과 연관(association)된 프로그램으로 파일을 엽니다 
ShellExecute(Handle, 'open', PChar('test.txt'), nil, nil, SW_SHOW); 

(2) notepad.exe 에 파라미터로 config.sys 파일을 주어 메모장을 실행합니다 
ShellExecute(Handle, 'open', 'notepad', 'c:\config.sys', nil, SW_SHOW); 

(3) PC에 설치된 기본 웝브라우저로 지정한 사이트를 엽니다. 
ShellExecute(Handle, 'open', 'www.howto.pe.kr', nil, nil, SW_SHOW); 

(4) 특정 폴더를 시작 폴더로 하는 윈도우즈 탐색기를 엽니다 
ShellExecute(Handle, 'explore', PChar('c:\windows)', nil, nil, SW_SHOW); 

(5) readme.doc 파일을 연결된 프로그램으로 인쇄하고 화면을 닫습니다 
ShellExecute(Handle, 'print', 'readme.doc', nil, nil, SW_SHOW); 

(6) rMyDelphiFile.pas 파일을 wordpad 프로그램으로 인쇄하고 화면을 닫습니다 
ShellExecute(Handle, 'print', 'wordpad.wxe', 'MyDelphiFile.pas', nil, SW_SHOW); 

(7) readme.doc 파일을 프린터를 선택하여 연결된 프로그램으로 인쇄하고 화면을 닫습니다 
var 
Device : array[0..255] of char; 
Driver : array[0..255] of char; 
Port : array[0..255] of char; 
S: String; 
hDeviceMode: THandle; 
begin 
Printer.PrinterIndex := -1; // 프린터 인덱스를 지정합니다. 여기서는 기본 프린터(-1) 선택 
Printer.GetPrinter(Device, Driver, Port, hDeviceMode); 
S := Format('"%s" "%s" "%s"',[Device, Driver, Port]); 
ShellExecute(Handle, 'printto', 'readme.doc', Pchar(S), nil, SW_HIDE); 

(8) 기본 메일 프로그램을 실행합니다. 
ShellExecute(Handle, nil, 'mailto:cozy@howto.pe.kr', nil, nil, SW_SHOW); 

(9) DOS 명령어를 실행하고 화면을 닫습니다 
ShellExecute(Handle, 'open', PChar('command.com'), PChar('/c copy file1.txt file2.txt'), nil, SW_SHOW); 

(10) DOS 명령어를 실행하고 화면을 닫지 않습니다 
ShellExecute(Handle, 'open', PChar('command.com'), PChar('/k dir'), nil, SW_SHOW); 

(11) ShellExecute()의 리턴값은 실행된 프로그램의 핸들이거나 에러코드입니다 
리턴값이 32 이하이면 에러가 발생한것으로 각각은 아래와 같은 의미가 있습니다 

var 
code: Integer; 
begin 
code := ShellExecute(...); 
if code <= 32 then ShowMessage(ShowShellExecuteError(code)); 
end; 

// ShellExecute()의 리턴코드에 대한 에러 메시지 
function ShowShellExecuteError(i: integer): String; 
begin 
case i of 0: result := 'The operating system is out of memory or resources.'; 
ERROR_FILE_NOT_FOUND: result := 'The specified file was not found.'; 
ERROR_PATH_NOT_FOUND: result := 'The specified path was not found.'; 
ERROR_BAD_FORMAT: result := 'The .EXE file is invalid (non-Win32 .EXE or error in .EXE image).'; 
SE_ERR_ACCESSDENIED: result := 'The operating system denied access to the specified file.'; 
SE_ERR_ASSOCINCOMPLETE: result := 'The filename association is incomplete or invalid.'; 
SE_ERR_DDEBUSY: result := 'The DDE transaction could not be completed because other DDE transactions were being processed.'; 
SE_ERR_DDEFAIL: result := 'The DDE transaction failed.'; 
SE_ERR_DDETIMEOUT: result := 'The DDE transaction could not be completed because the request timed out.'; 
SE_ERR_DLLNOTFOUND: result := 'The specified dynamic-link library was not found.'; 
//SE_ERR_FNF : result:='The specified file was not found.'; 
SE_ERR_NOASSOC : result:='Unbekannter Extender.'; 
SE_ERR_OOM: result := 'There was not enough memory to complete the operation.'; 
//SE_ERR_PNF : result:='The specified path was not found.'; 
SE_ERR_SHARE: result := 'A sharing violation occurred.'; 
end; 
end; 

(12) ShellExecuteEx()를 이용하여 notepad.exe 를 실행한 후 종료될때까지 기다립니다 
var 
SEInfo: TShellExecuteInfo; 
ExitCode: DWORD; 
ExecuteFile, ParamString, StartInString: string; 
begin 
ExecuteFile := 'notepad.exe'; // 실행할 프로그램 
ParamString := 'c:\winzip.log'; // 프로그램의 명령행 파라미터 
StartInString := 'c:\'; // 시작 위치 
FillChar(SEInfo, SizeOf(SEInfo), 0); 
SEInfo.cbSize := SizeOf(TShellExecuteInfo); 

with SEInfo do 
begin 
fMask := SEE_MASK_NOCLOSEPROCESS; 
Wnd := Application.Handle; 
lpFile := PChar(ExecuteFile); 
lpParameters := PChar(ParamString); 
lpDirectory := PChar(StartInString); 
nShow := SW_SHOWNORMAL; 
end; 
if ShellExecuteEx(@SEInfo) then 
begin 
repeat 
Application.ProcessMessages; 
GetExitCodeProcess(SEInfo.hProcess, ExitCode); 
until (ExitCode <> STILL_ACTIVE) or Application.Terminated; 
ShowMessage('프로그램이 종료되었습니다'); 
end 
else ShowMessage('프로그램을 실행할 수 없습니다');