Subversion Repositories musikbox

Rev

Rev 5 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5 Rev 6
Line 84... Line 84...
84 
 
 84 
 
85 
uses Info, Config;
 85 
uses Info, Config;
86 
 
 86 
 
87 
{$R *.dfm}
 87 
{$R *.dfm}
88 
 
 88 
 
89 
{$R windowsxp.res}
 - 
 
90 
 
 - 
 
91 
// http://www.delphipraxis.net/post592358.html
 89 
// http://www.delphipraxis.net/post592358.html
92 
function IsFileDRMProtected(AFileName: String): Boolean;
 90 
function IsFileDRMProtected(AFileName: String): Boolean;
93 
var lCheckProc: function(const AFileName: PWideChar; var AIsProtected: Bool): HRESULT; stdcall;
 91 
var lCheckProc: function(const AFileName: PWideChar; var AIsProtected: Bool): HRESULT; stdcall;
94 
    lLibHandle: Cardinal;
 92 
    lLibHandle: Cardinal;
95 
    lWideChar   : PWideChar;
 93 
    lWideChar   : PWideChar;