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

Вниз

запуск второй копии програмы из faq   Найти похожие ветки 

← →
denis24   (2004-12-13 10:40) [0]

Нашел в факе сабж.
Но в одной строке пишет ошибку
if (Wnd<>Application.Handle)and(GetWindow(Wnd,gw_Owner)=0) then
begin
GetWindowText(Wnd,buff,sizeof(buff));
if Copy(StrPas(buff),1,12)="SmartDecoder" then
  if Wnd=GetWindowLong(Wnd,GWL_USERDATA) then
  begin
       ShowWindow(Wnd,SW_ShowNormal);
       SetForegroundWindow(Wnd);
       i:=1;
       while ParamStr(i)<>"" do
       begin
           s:=ParamStr(i);
          PostMessage(Wnd,WM_OPEN_FILE,GlobalAddAtom(PChar(s)),0);//тут ошибка "Undeclared identifer WM_OPEN_FILE"
         inc(i);
       end;
       Application.Terminate;
       Exit;
  end;
end;

---

← →
8ung ©   (2004-12-13 12:25) [1]

Напиши новую константу WM_OPEN_FILE и присвой ей какое-нибудь значение. А в проге отлавлива получение сообщения с ней и делай то, что тебе нужно.

---

← →
BiN ©   (2004-12-13 12:47) [2]

передавать строки через атомы - сомнительный метод
имхо, разумеется

---

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

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

Наверх

Память: 0.47 MB
Время: 0.028 c