번개같이 빠른 답변에 고개 숙여 감사드립니다.
그런데 PLongBool 로도 안됩니다. ㅠㅠ
function CaptureCallback(msgId: DWORD; param1: WParam; param2: LParam; UserData: Pointer): DWORD; stdcall;
var
pbCancel: PLongBool;
...
WIM_MSG_PROCESS:
begin
if (Pos('\System Volume Information', FilePath) > 0) or
(Pos('\$Recycle.Bin', FilePath) > 0) then
begin
MainForm.Label1.Caption := Format('File Path: %s', [FilePath]);
pbCancel := PLongBool(Param2);
pbCancel^:= false;
Exit;
end;
end;
|