Программа для прослушивания журнала АРК Томск http://blindage.org/?p=6627
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

synafpc.pas 5.2KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141
  1. {==============================================================================|
  2. | Project : Ararat Synapse | 001.002.000 |
  3. |==============================================================================|
  4. | Content: Utils for FreePascal compatibility |
  5. |==============================================================================|
  6. | Copyright (c)1999-2011, Lukas Gebauer |
  7. | All rights reserved. |
  8. | |
  9. | Redistribution and use in source and binary forms, with or without |
  10. | modification, are permitted provided that the following conditions are met: |
  11. | |
  12. | Redistributions of source code must retain the above copyright notice, this |
  13. | list of conditions and the following disclaimer. |
  14. | |
  15. | Redistributions in binary form must reproduce the above copyright notice, |
  16. | this list of conditions and the following disclaimer in the documentation |
  17. | and/or other materials provided with the distribution. |
  18. | |
  19. | Neither the name of Lukas Gebauer nor the names of its contributors may |
  20. | be used to endorse or promote products derived from this software without |
  21. | specific prior written permission. |
  22. | |
  23. | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" |
  24. | AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
  25. | IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
  26. | ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR |
  27. | ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL |
  28. | DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR |
  29. | SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER |
  30. | CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
  31. | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY |
  32. | OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH |
  33. | DAMAGE. |
  34. |==============================================================================|
  35. | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
  36. | Portions created by Lukas Gebauer are Copyright (c)2003-2011. |
  37. | All Rights Reserved. |
  38. |==============================================================================|
  39. | Contributor(s): |
  40. |==============================================================================|
  41. | History: see HISTORY.HTM from distribution package |
  42. | (Found at URL: http://www.ararat.cz/synapse/) |
  43. |==============================================================================}
  44. {:@exclude}
  45. {$IFDEF FPC}
  46. {$MODE DELPHI}
  47. {$ENDIF}
  48. {$H+}
  49. //old Delphi does not have MSWINDOWS define.
  50. {$IFDEF WIN32}
  51. {$IFNDEF MSWINDOWS}
  52. {$DEFINE MSWINDOWS}
  53. {$ENDIF}
  54. {$ENDIF}
  55. unit synafpc;
  56. interface
  57. uses
  58. {$IFDEF FPC}
  59. dynlibs, sysutils;
  60. {$ELSE}
  61. {$IFDEF MSWINDOWS}
  62. Windows;
  63. {$ELSE}
  64. SysUtils;
  65. {$ENDIF}
  66. {$ENDIF}
  67. {$IFDEF FPC}
  68. type
  69. TLibHandle = dynlibs.TLibHandle;
  70. function LoadLibrary(ModuleName: PChar): TLibHandle;
  71. function FreeLibrary(Module: TLibHandle): LongBool;
  72. function GetProcAddress(Module: TLibHandle; Proc: PChar): Pointer;
  73. function GetModuleFileName(Module: TLibHandle; Buffer: PChar; BufLen: Integer): Integer;
  74. {$ELSE}
  75. type
  76. {$IFDEF CIL}
  77. TLibHandle = Integer;
  78. PtrInt = Integer;
  79. {$ELSE}
  80. TLibHandle = HModule;
  81. {$IFNDEF WIN64}
  82. PtrInt = Integer;
  83. {$ENDIF}
  84. {$ENDIF}
  85. {$IFDEF VER100}
  86. LongWord = DWord;
  87. {$ENDIF}
  88. {$ENDIF}
  89. procedure Sleep(milliseconds: Cardinal);
  90. implementation
  91. {==============================================================================}
  92. {$IFDEF FPC}
  93. function LoadLibrary(ModuleName: PChar): TLibHandle;
  94. begin
  95. Result := dynlibs.LoadLibrary(Modulename);
  96. end;
  97. function FreeLibrary(Module: TLibHandle): LongBool;
  98. begin
  99. Result := dynlibs.UnloadLibrary(Module);
  100. end;
  101. function GetProcAddress(Module: TLibHandle; Proc: PChar): Pointer;
  102. begin
  103. Result := dynlibs.GetProcedureAddress(Module, Proc);
  104. end;
  105. function GetModuleFileName(Module: TLibHandle; Buffer: PChar; BufLen: Integer): Integer;
  106. begin
  107. Result := 0;
  108. end;
  109. {$ELSE}
  110. {$ENDIF}
  111. procedure Sleep(milliseconds: Cardinal);
  112. begin
  113. {$IFDEF MSWINDOWS}
  114. {$IFDEF FPC}
  115. sysutils.sleep(milliseconds);
  116. {$ELSE}
  117. windows.sleep(milliseconds);
  118. {$ENDIF}
  119. {$ELSE}
  120. sysutils.sleep(milliseconds);
  121. {$ENDIF}
  122. end;
  123. end.