Messages can be passed by the following code (with additional items) anyone
needs it, give me a yell, I dont claim originality:
procedure PassParamsToPreviousInstance;
begin
PostMessage(hPrevious, UM_RESTORE_APPLICATION, 0, 0);
if (ParamCount > 0) then
begin
aAtom := GlobalAddAtom(PChar(sParams));
if aAtom = 0
then RaiseLastWin32Error
else
begin
SendMessage(hPrevious, UM_PREVIOUS_INST_PARAMS, aAtom, 0);
GlobalDeleteAtom(aAtom);
end;
end;
end;
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
