diff options
author | Juha Vehviläinen <jusu@users.sourceforge.net> | 2002-09-18 16:26:23 +0000 |
---|---|---|
committer | Juha Vehviläinen <jusu@users.sourceforge.net> | 2002-09-18 16:26:23 +0000 |
commit | abe3e28bb8c11236f42046e1c1fd6f809b00a823 (patch) | |
tree | 2c6239e7ec96846a949f226c7fc2bc8ffc21a2cd /Source/FramesteinLib.dpr | |
parent | 40db8339b576227ff9f34b721c067999d615fee9 (diff) |
Delphi project for creating FramesteinLib.DLL - FS as Pd Library
svn path=/trunk/Framestein/; revision=131
Diffstat (limited to 'Source/FramesteinLib.dpr')
-rw-r--r-- | Source/FramesteinLib.dpr | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/Source/FramesteinLib.dpr b/Source/FramesteinLib.dpr new file mode 100644 index 0000000..c6b10ac --- /dev/null +++ b/Source/FramesteinLib.dpr @@ -0,0 +1,62 @@ +{ Copyright (C) 2001-2002 Juha Vehviläinen + This program is free software; you can redistribute it and/or + modify it under the terms of the GNU General Public License + as published by the Free Software Foundation; either version 2 + of the License, or (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details.} + +Library Framestein; + +{%ToDo 'Framestein.todo'} +{%ToDo 'FramesteinLib.todo'} + +uses + ActiveX, + Forms, + Classes, + Windows, + mainunit in 'mainunit.pas' {main}, + fsframeunit in 'fsframeunit.pas' {fsframe}, + fscopyunit in 'fscopyunit.pas' {fscopy}, + fstextunit in 'fstextunit.pas' {fstext}, + fsformunit in 'fsformunit.pas', + fsdrawunit in 'fsdrawunit.pas' {fsdraw}, + effectsunit in 'effectsunit.pas', + pluginunit in 'pluginunit.pas', + logunit in 'logunit.pas' {log}, + fsbrowserunit in 'fsbrowserunit.pas' {fsbrowser}, + fsinfounit in 'fsinfounit.pas' {fsinfo}, + configureunit in 'configureunit.pas' {configure}, + pshostunit in 'pshostunit.pas', + fsaviunit in 'fsaviunit.pas' {FsAvi}, + progressunit in 'progressunit.pas' {Progress}; + +{$R *.RES} + +function framestein_setup: Longint; stdcall; +begin + MainT := TMainThread.Create(False); + Result := 0; +end; + +exports + framestein_setup; + +var + SaveExit: Pointer; + +procedure FSExit; +begin + Application.MessageBox('exitproc called!', '', 0); + ExitProc := SaveExit; +end; + +begin + SaveExit := ExitProc; + ExitProc := @FSExit; +end. + |