버튼을 누르면 winexec로 특정프로그램 실행하면서 파라미터(업로드 파일명)를 전달하는데..
다시 버튼을 누르니깐 또하나의 프로그램이 띄어져.. 2개가 실행이 되는군요..
또하나의 프로그램이 실행되지않고 이미 실행된 프로그램(프로세서)에 파라미터를 전달할려면 어떻게 해야하나요?? 조그만 조언이라도 부탁드립니다..
<!--CodeS-->
procedure Tfrmmain.Button1Click(Sender: TObject);
var
hwnd: Integer;
begin
hwnd :=FindWindow('notepad',nil); //실행 중인지 여부를 알기위해 0이 아니면 실행중?..
if hwnd = 0 then
begin
Winexec('c:\windows\notepad',SW_SHOW); // 0 이면 한개 실행
end
else // 0이 아니면 이미 1개 이상 실행중이므로 실행하지 않음
begin
ShowMessage('메모장이 실행중');
//이부분에서 구한 핸들로 메세지를 날려주면 되지 않을가 요 ?..
end;
end;
<!--CodeE-->
procedure Tfrmmain.Button1Click(Sender: TObject);
var
hwnd: Integer;
begin
hwnd :=FindWindow('notepad',nil); //실행 중인지 여부를 알기위해 0이 아니면 실행중?..
if hwnd = 0 then
begin
Winexec('c:\windows\notepad',SW_SHOW); // 0 이면 한개 실행
end
else // 0이 아니면 이미 1개 이상 실행중이므로 실행하지 않음
begin
ShowMessage('메모장이 실행중');
//이부분에서 구한 핸들로 메세지를 날려주면 되지 않을가 요 ?..
end;
end;
<!--CodeE-->
허접한 초보의 생각이었습니다 ㅡ.ㅜ;