ShowMessage(ParamStr(1)); //첫번째 인자값
ShowMessage(ParamStr(2)); //두번째 인자값

function ParamStr(Index: Integer): string;  // system.pas 에 선언되어 있음(delphi v5) v6은 확인 안 해 봤음.

아래와 같이 WinExec(PChar('Application.exe'+'Name'), SW_SHOWNORMAL)을 이용하여 응용프로그램을 띄워 봤는데요 안되는데요.
실행파일이 실행되지를 않습니다.
위의 것을 바꿔서 WinExec(PChar('C:testtest.exe'), SW_SHOWNORMAL) 만 하게 되면 test.exe 가 실행은 됩니다.
만약 test.exe는 실행이 되고 test.exe에 버튼을 하나 만들고 버튼을 클릭 했을 때 Name 값을 볼 수 있는 방법이 없는지요?
위의 것을 약간 수정하면 될 것 같은데 잘 안됩니다.
아시는 분은 답변 좀 꼭 해 주세요.

저는 이렇게 해도 된다고 봅니다만..너무 무식해서리..
음..

1. 보내는쪽
TUSER_INFO = packed record
    emp_no    : array [0..5]    of char;    { 입력자 사번 }
    team_code : array [0..2]    of char;    { 부서 코드 }
    the_right : array [0..1]    of char;    { 권한 }
  end;

// 아래와 같이 보낼 데이터 채워 주시고요
StrMove(USER_INFO.emp_no,    PChar(Trim(edtUserID.Text)), 6);
StrMove(USER_INFO.team_code, PChar(Trim(edtTeam_code.Text)), 3);
StrMove(USER_INFO.the_right, PChar(Trim(edtAuthority.Text)), 2);


procedure TfrmLogin.AExecMain;
var
  hHandle : HWND;
  DataStruct : TCOPYDATASTRUCT;
begin
  // execute main
  WinExec('Test.exe', SW_SHOWMAXIMIZED or SW_MAXIMIZE); //같은 디렉토리에 있는 다른 실행 파일
  sleep(500);   // 적절히 조정하세요 sleep없으면 간혹 데이타 놓치더라구요.보내는쪽이 너무 빨리 보내서 다른 프로그램이 늦게 실행되면 데이타 놓칠수 있어요..
  hHandle := FIndWindow('TMainForm', 'Nex NEWS');

  // send data to other program
  DataStruct.dwData  := hHandle;
  DataStruct.cbData  := sizeof(TUSER_INFO);
  DataStruct.lpData  := @USER_INFO;
  SendMessage(hHandle, WM_COPYDATA, wParam(Application.Handle), lParam(@DataStruct));
end;

2. 받는쪽.
//아래와 같이 프로시져 선언해 주시고요
procedure WMCopyData(var msg : TWMCopyData); message WM_COPYDATA;

procedure TMainForm.WMCopyData(var msg : TWMCopyData);
var
  hHandle : HWND;
begin
  { receive login information }
  CopyMemory(@USER_INFO, msg.CopyDataStruct^.lpData, sizeof(TUSER_INFO));
  msg.Result := 1;

  showmessage(USER_INFO.emp_no);
  showmessage(USER_INFO.team_code);
  showmessage(USER_INFO.the_right);

또는 계속 사용하실 데이터 이면 Shared Memory에 저장하고 넣었다 뺐다
를 하시면 되겠네요...

  { make shared memory }
  CreateSharedMem('LOGIN');
  shmHandle := OpenSharedMem('LOGIN');
  WriteSharedMem(shmHandle, 'USER',   USER_INFO.emp_no);
  WriteSharedMem(shmHandle, 'DEPT',   USER_INFO.team_code);
  WriteSharedMem(shmHandle, 'RIGHT',  USER_INFO.the_right);
end;


* 이거 되는지 확인좀 하시고 답글좀 올려주세요..저도 정말 초보라서리
궁금하네요...
첨으로 델코에 답을 해보네요...참나 오래살고 볼일이여.... 캬울~~~