procedure InitDLL(ptr:PShareData);
begin
if ptr^.RTLVersion<>RTLVersion then
raise Exception.Create('RTLVersion not diffent!');
if Application.Handle=0 then begin
ShareData:=ptr;
OldScreen:=Screen;
Application.Handle:=ShareData^.ApplicationHandle;
Screen:=ShareData^.MainScreen^;
end;
end;