запуск второй копии програмы из 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 и присвой ей какое-нибудь значение. А в проге отлавлива получение сообщения с ней и делай то, что тебе нужно.

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

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