강지영 wrote:

> 안녕하세요.

> 제가 질문을 잘못한것 같아요..

> 먼저 답변해 주신 예제로

> ShellExecute(Handle,'Open','notepad','c:config.sys','',sw_shownormal);

> 이라고 하면

> 노트패드가 실행되는 동시에 config.sys의 내용을 출력해 주잖습니까.

> 그러면..

> 노트패드처럼 실행당할 프로그램도 제가 아주 간단하게 만든 델파이 애플리케이션이구요..

> Appl1 : ShellExecute를 실행하는 프로그램.

> Appl2 : Appl1의 ShellExecute로 실행당하는 프로그램.

> Edit1을 가지고 있습니다.

>

> Appl1의 버튼을 누를면 Appl2가 구동이 되는 동시에 Appl1에서 넘겨주는 파라미터 AAA를 Appl2의 Edit에 출력하려면 어떻게 해야 하나요..

> 대충 무슨 말인지 아시겠지요.. 흑..

> 제가 생각하기에는 Appl2를 어떻게 만드는가가 더 중요한것 같아요.

> 실행되는 동시에 파라미터를 전달받는 프로그램..

>

> 그리구요..

> findwindow함수를 써봤는데..

>

> si := Findwindow('TMemo','Memo1');

> if si = 0 then

> showmessage('못찾았음');

> ss := intToStr(si);

> Memo1.Lines.add(ss);

>

> 다른 프로그램의 핸들을 찾다가 안되어서 자신의 폼안에 있는 Memo의 핸들을 찾도록 했는데 못찾네요..

> TForm1,Form1이라고 하면 잘 찾아지는데..

> 뭐가 잘못된걸까요?

> 그리고 다른 프로그램의 핸들을 얻으려면 어떻게 해야 하지요?

>

안녕하세요...



app2 에 다음과 같은 함수를 사용해야 합니다..



function ParamStr(Index: Integer): string;



여기서 인덱스는 파라미터의 인덱스 입니다..

예를 들면



Ryoo.exe ryoo 1234 567



이라고 프로그램을 실행 했다면..



ParamStr(0) 은 'Ryoo.exe'

ParamStr(1) 은 'ryoo'

ParamStr(2) 은 '1234'

ParamStr(3) 은 '567'

을 리턴 합니다...



간단하지요...



참 uses 에 당연히 system 은 들어 가 있겠지요..





류민철이 적었습니다..



antipax@mediafree.co.kr

류님.

하루종일 헤메었던 문제인데 너무나도 감사드립니다.

저는 Send Message를 써서 보내려고 했거든요..

어렵게 생각했던 문제를 간단하게 해결할 수 있었습니다.

감사합니다.