External:SIGSEGV错误

[Caibird1]

下面的代码是哪里有问题?我是newbie,刚刚接触delphi而已..
unit MemoryClass;


{$mode objfpc}{$H+}


interface


uses
Classes, SysUtils,Windows,jwatlhelp32;
//TlHelp32=jwatlhelp32.pas
type CMemory=class(TObject)
private
{ private declarations }
ProcessId:DWORD;
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;

[Caibird1]

顶起来看看，这个问题已经很多天了...

[爱蹄子的羊头]

没有问题啊..我XE 通过了

[李秋步]

我也遇到类似问题：看看这个呢
http://hi.baidu.com/frank_hz_jiang/blog/item/065d9dfa9078581d6d22eba4.html