| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

запуск второй копии програмы из faq [D6, Win2k]

denis24 ©   (2004-12-13 10:40:00) 

Нашел в факе сабж.
Но в одной строке пишет ошибку
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;

---

BiN   (2004-12-13 12:47:00) [1]

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

---

8ung   (2004-12-13 12:25:00) [2]

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

---

Наверх