C语句如何对应Delphi语句

2024-11-23 08:43:35

推荐回答（1个）

回答（1）：

Function(dwChannel,color,font_size : longint; Line1 ,Line2 : PWORD) : integer;stdcall;

VAR
fData1 : PWORD ;
fData2 : PWORD ;
PSdk4000Func := GetProcAddress(FSdk4000Func,'EEoSetOsdDisplayMode') ;
if PSdk4000Func <> nil then begin
FunEEoSetOsdDisplayMode := TEEoSetOsdDisplayMode(PSdk4000Func);
GetMem(fData2,sizeof(WORD) * 20) ;
fData2^ := WindowFirIn.Height + 5 ;
INC(fData2) ;
fData2^ := WindowFirIn.Left + 5 ;
INC(fData2) ;
fData2^ := $BDF8 ;
INC(fData2) ;
fData2^ := $BDF8 ;
INC(fData2) ;
fData2^ := $BDF8 ;
INC(fData2) ;
fData2^ := $BDF8 ;
INC(fData2) ;
fData2^ := 0 ;
iRet := FunEEoSetOsdDisplayMode(iTV1,10,80,fData2,fData2) ;
//FreeMem(fData2) ;
end;