ソースを参照

* Dotted filenames for package nvapi

Michaël Van Canneyt 2 年 前
コミット
610b269a12

+ 3 - 0
packages/nvapi/namespaced/Api.Nvapi.pas

@@ -0,0 +1,3 @@
+unit Api.Nvapi;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i nvapi.pas}

+ 3 - 0
packages/nvapi/namespaces.lst

@@ -0,0 +1,3 @@
+src/nvapi.pas=namespaced/Api.Nvapi.pas
+{s*:src/}=namespaced/
+{i+:src/}

+ 7 - 0
packages/nvapi/src/nvapi.pas

@@ -57,7 +57,9 @@
 //
 ///////////////////////////////////////////////////////////////////////////////
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit nvapi;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$ifndef FPC}
 {$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N-,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
@@ -72,8 +74,13 @@ unit nvapi;
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  WinApi.Windows;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Windows;
+{$ENDIF FPC_DOTTEDUNITS}
 
 // ====================================================
 // Universal NvAPI Definitions