typedef struct _ProcessInfo{
  DWORD th32ProcessID; 
    DWORD th32DefaultHeapID; 
    DWORD th32ModuleID; 
    DWORD cntThreads; 
    DWORD th32ParentProcessID; 
    LONG  pcPriClassBase; 
    DWORD dwFlags; 
    char szExeFile;}
PROCESSINFO,*PPROCESSINFO;
这样转化为delphi的呀?!谢谢

解决方案 »

  1.   

    type
      PMyRecord = ^MyRecord;
      MyRecord = record
         th32DefaultHeapID: Longword;
         th32ModuleID: Longword;
         ................
         end;//end of record
      

  2.   

    type
      PProcessInfo = ^_ProcessInfo;
      _ProcessInfo = record
         th32DefaultHeapID: DWord;
         th32ModuleID: Dword;
         ................
         end;
      

  3.   

    type
      P_ProcessInfo = ^_ProcessInfo;
      _ProcessInfo = record
         th32DefaultHeapID: DWord;
         th32ModuleID: Dword;
         ................
         end;var
      PROCESSINFO: _ProcessInfo;
      PPROCESSINFO: P_ProcessInfo;
      

  4.   

    type
      P_ProcessInfo = ^_ProcessInfo;
      _ProcessInfo = record
         th32DefaultHeapID: DWord;
    ...
         th32ModuleID: Dword;
    end;var
      PROCESSINFO: _ProcessInfo;
      PPROCESSINFO: P_ProcessInfo
      

  5.   

    其实delphi中的记录比c中的结构体还要直观的 !