Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.022 c
1-1105699329
Варава
2005-01-14 13:42
2005.01.30
QuickReport и длинные поля.


8-1098001082
Ralf
2004-10-17 12:18
2005.01.30
Сглаживание краёв


3-1104298388
КаПиБаРа
2004-12-29 08:33
2005.01.30
Оптимизация запроса


3-1103977626
Varfolomey
2004-12-25 15:27
2005.01.30
InterBase 6.0: BLOB


11-1088150147
tigra
2004-06-25 11:55
2005.01.30
kol &amp; builder