External:SIGSEGV错误

logkll2913

不知道下面的代码哪里有问题,我是菜鸟求指导

unit MemoryClass;


{$mode objfpc}{$H+}


interface


uses
  Classes, SysUtils,Windows,jwatlhelp32;
   //TlHelp32=jwatlhelp32.pas
  type CMemory=class(TObject)
private
  { private declarations }
      ProcessIdWORD;
public
      procedure FindWindow(clsname:pwidechar;windowname:pwidechar);
      Constructor Create();
  { public declarations }
end;
implementation


Constructor CMemory.Create();
begin
     ProcessId:=0;
end;


procedure CMemory.FindWindow(clsname:pwidechar;windowname:pwidechar);
var temphwnd:hwnd;
begin
     temphwnd:=FindWindowW(clsname,windowname);
     if(temphwnd<>0) then
     begin
          GetWindowThreadProcessID(temphwnd,@ProcessId);
     end
     else
     ProcessId:=0;//提示在这行出错...
end;                                         



调用..
var
CMem1:CMemory;
begin
CMem1:=CMem1.Create();
CMem1.FindWindow('Kernel Class',nil);
end;

logkll2913

自己顶一下，求指导啊
这个论坛真的很冷清啊...

logkll2913

继续顶
为什么没人回复啊

猫工

http://www.fpccn.com/read.php?tid=1974