Текущий архив: 2010.11.14;
Скачать: CL | DM;

Вниз

Обмен данными между приложениями   Найти похожие ветки 

← →
Zalum   (2009-05-04 13:37) [0]

Добрый день. Я делаю прогу, которая должна передавать параметры приложению при повторном запуске этого приложения.
Вот код из dpr файла

with ParamCmd do
begin
dwData := 0;
cbdata:=strlen(pchar(paramstr(1)))+1;
lpData:=pchar(paramstr(1));
end;
SendMessage(HForm, WM_COPYDATA, application.Handle, Integer(@ParamCmd));


вот код из главного unita:

procedure TForm1.Getmessage(var msg: TWMCopyData);
var
s:String;
begin
 S:=PChar(Msg.CopyDataStruct.lpData);
 label7.Caption := s;
end;

Но так передается один параметр paramstr(1), а мне нужно сразу передавать и принимать 2 параметра paramstr(1) и paramstr(2). Помогите советом, как это сделать.

---

← →
Сергей М. ©   (2009-05-04 13:49) [1]

Повтори все тоже самое для paramstr(2)

---

Страницы: 1 вся ветка

Текущий архив: 2010.11.14;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.01 c