学习DELPHI以来有个问题一直不懂,请高手解答,谢谢了:
unit Unit_DllMain;{$DEFINE BankFiltrate} //这里是什么意思interface
uses
Windows, Unit_Other;
procedure StartHook(const SaveFileName: Pchar); stdcall;
procedure StopHook; stdcall;
implementation
const
{$IFDEF BankFiltrate}
BankInfo: string = '琼排';
{$ENDIF} //这里是什么意思
HookMemFileName: Pchar = '_kaspersky';
NULL = 0;
type
TShared = record
strSaveFileName: array[0..1023] of char;
hGetMsgHook, hCallWndHook: THandle;
end;
var
bFirstProcess: Bool;
hMappingFile: THandle;
PShared: ^TShared;
bFirst: Bool;
dwTick: DWORD;
bChange: Bool;
sOldCapText: array[0..255] of char;
{$IFDEF BankFiltrate}
strBankInfo: string;
i: integer;
{$ENDIF} //这里是什么意思function GetTopParent(hWndIn: HWND): HWND;
var
hWndOut: HWND;
begin
Result := hWndIn;
if (hWndIn = NULL) then Exit;
hWndOut := hWndIn;
while (hWndOut <> NULL) do
begin
hWndIn := hWndOut;
hWndOut := GetParent(hWndIn);
end;
Result := hWndIn;
end;
上面代码标识的地方是DELPHI的什么语法,有什么作用,就是说DELPHI {$ } 干什么用的啊,请帮忙,谢谢了
unit Unit_DllMain;{$DEFINE BankFiltrate} //这里是什么意思interface
uses
Windows, Unit_Other;
procedure StartHook(const SaveFileName: Pchar); stdcall;
procedure StopHook; stdcall;
implementation
const
{$IFDEF BankFiltrate}
BankInfo: string = '琼排';
{$ENDIF} //这里是什么意思
HookMemFileName: Pchar = '_kaspersky';
NULL = 0;
type
TShared = record
strSaveFileName: array[0..1023] of char;
hGetMsgHook, hCallWndHook: THandle;
end;
var
bFirstProcess: Bool;
hMappingFile: THandle;
PShared: ^TShared;
bFirst: Bool;
dwTick: DWORD;
bChange: Bool;
sOldCapText: array[0..255] of char;
{$IFDEF BankFiltrate}
strBankInfo: string;
i: integer;
{$ENDIF} //这里是什么意思function GetTopParent(hWndIn: HWND): HWND;
var
hWndOut: HWND;
begin
Result := hWndIn;
if (hWndIn = NULL) then Exit;
hWndOut := hWndIn;
while (hWndOut <> NULL) do
begin
hWndIn := hWndOut;
hWndOut := GetParent(hWndIn);
end;
Result := hWndIn;
end;
上面代码标识的地方是DELPHI的什么语法,有什么作用,就是说DELPHI {$ } 干什么用的啊,请帮忙,谢谢了
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货