指针类型怎么定义 type LPPROCESSENTRY32 = ^PROCESSENTRY32;

{ 定义进程 PROCESSENTRY32 结构类型 }
type PROCESSENTRY32 = record
    dwSize: Integer;
    cntUsage: Integer;
    th32ProcessID: Integer;
    th32DefaultHeapID: Integer;
    th32ModuleID: Integer;
    cntThreads: Integer;
    th32ParentProcessID: Integer;
    pcPriClassBase: Integer;
    dwFlags: Integer;
    szExeFile:Array[1..260] of char;
end;

type LPPROCESSENTRY32 = ^PROCESSENTRY32;
下边定义的这个指针因为我要在
function Process32First( hSnapshot: Integer; lppe: LPPROCESSENTRY32 ): Boolean; external 'Process32First@kernel32.dll stdcall';
function Process32Next( hSnapshot: Integer; lppe: LPPROCESSENTRY32 ): Boolean; external 'Process32Next@kernel32.dll stdcall';
里面用。

但是总是编译不过。有好心人教教我这可怜虫吧。

当然还有一个解决办法就是再弄个DLL实现Process这些功能。然后我在【code】中调用这个DLL，不过这样我就不爽。


大家想想该咋办。。。。。

function Process32First( hSnapshot: Integer; var lppe: PROCESSENTRY32 ): Boolean; external 'Process32First@kernel32.dll stdcall';
function Process32Next( hSnapshot: Integer; var lppe: PROCESSENTRY32 ): Boolean; external 'Process32Next@kernel32.dll stdcall';
用引用也可以