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

Вниз

Передать работающему приложению параметры   Найти похожие ветки 

← →
Zalum   (2009-04-29 11:58) [0]

Добрый день! Я написал программу запуска приложения(MyProject) и передачи ему параметров из другого приложения(Technologics).
Код следующий:
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
List: TStringList;
begin
  a := -1;
  b := -1;
  if FindCmdLineSwitch( "reg", ["/","-"], True  ) then
    begin
      StartReg;
      Application.Terminate;
      Exit;
    end;

  List := TStringList.Create;
  try
    for i:=1 to ParamCount do List.Add( ParamStr(i) );

    a :=    StrToIntDef( List.Values["A_ID"],    TechId );
    b :=     StrToIntDef( List.Values["B_ID"],     VerId );

  finally
    List.Free;
  end;

Edit1.Text:= IntToStr(a );
Edit2.Text:= IntToStr(b );
end;

procedure TForm1.StartReg;
 procedure Check( Result: Boolean );
 begin
   if not Result then raise Exception.Create( "Îøèáêà ðåãèñòðàöèè â ðååñòðå! Íå ìîãó ïðîâåñòè ðåãèñòðàöèþ!" );
 end;
var
Reg: TRegistry;
begin
 Reg := TRegistry.Create;
 try
   Reg.RootKey := HKEY_LOCAL_MACHINE;
   Check( Reg.OpenKey( "Software\CSDN\TCS\111\1111", True ) );
   Reg.WriteString ( "DisplayText", "Ìîé Ïðèìåð ðåäàêòîðà ýñêèçîâ ÷åðåç ÀÏÈ" );
   Reg.WriteString ( "CreateCmd", "A_ID=%A_ID% A_ID=%A_ID%  " );
   ....
   Reg.WriteString ( "ExeName", Application.ExeName );
 finally
   Reg.Free;
 end;
end;
Но дело в том, что при запуске приложения повторно с другими параметрами открывается еще одна  Form1 с новыми параметрами(приложение запускается в еще одном экземпляре), так можно открыть бесконечно много. А мне нужно, что бы при повторном запуске форма оставалась открыта, просто менялись параметры. Может кто знает как это сделать?

---

← →
Сергей М. ©   (2009-04-29 12:42) [1]

http://pcmag.ru/issues/detail.php?ID=9945

---

← →
Zalum   (2009-04-29 16:04) [2]

Может кто может подкинуть исходники(самые простые), чтобы разобраться с WM_COPYDATA?

---

← →
Сергей М. ©   (2009-04-29 17:04) [3]

Что конкретно не понятно ?

---

← →
Eraser ©   (2009-04-30 01:51) [4]

> [2] Zalum   (29.04.09 16:04)

прежде чем браться за программирование - научись пользоваться интернетом, освой какой-нибудь поисковик для начала.

http://www.google.com/search?client=opera&rls=ru&q=delphi+WM_COPYDATA&sourceid=opera&ie=utf-8&oe=utf-8

---

← →
Германн ©   (2009-04-30 02:08) [5]

> Zalum   (29.04.09 16:04) [2]
>
> Может кто может подкинуть исходники(самые простые), чтобы
> разобраться с WM_COPYDATA?
>

Имхо, порочный метод познания сущности!
Примите и прочь!

---

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

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

Наверх

Память: 0.48 MB
Время: 0.011 c