blob: e691def279a55831d57228ab3c05205104418a11 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
{OFR file}
unit fmt_Dummy;
{$include compilers.inc}
interface
uses wat_api;
function ReadDummy(var Info:tSongInfo):boolean; cdecl;
implementation
uses windows,common,io,tags,srv_format;
function ReadDummy(var Info:tSongInfo):boolean; cdecl;
{
var
f:THANDLE;
}
begin
{
result:=false;
f:=Reset(Info.mfile);
if f=THANDLE(INVALID_HANDLE_VALUE) then
exit;
CloseHandle(f);
}
result:=true;
end;
var
LocalFormatLinkCUE:twFormat;
procedure InitLink;
begin
LocalFormatLinkCUE.Next:=FormatLink;
LocalFormatLinkCUE.This.proc :=@ReadDummy;
LocalFormatLinkCUE.This.ext :='CUE';
LocalFormatLinkCUE.This.flags:=WAT_OPT_CONTAINER;
FormatLink:=@LocalFormatLinkCUE;
end;
initialization
InitLink;
end.
|
