|
Returns the path to the resource folder for Enterprise in MacOS X (within the application package). |
event DefineWindows
begin
Real h,v,v1,v2,vm,vs,h2,hs,hof,es;
Integer icn,icnovr,icndwn;
SetLangMode(LangEnglish,"ENG",0);
WindowBegin("Welcome",WelcomeWClass,CGother,RcType);
SetWRect(80,170,788,536);
UseView(RcVc);
// -- //
//WebPage(0,0,-1,255,"http://books.hansaworld.com/get-it-done-banner/hwindex.htm","");
if (WindowsMode) then begin
WebPage(0,0,-1,255,"res://" & ResourceFolder & "/get-it-done.html","");
end else begin
WebPage(0,0,-1,255,"file://" & HobFolder & "/../get-it-done.html","");
end;
// -- //
EndWindow;
return;
end;
««