Răsfoiți Sursa

* fixed 64-bit issue.

git-svn-id: trunk@28288 -
marco 11 ani în urmă
părinte
comite
98b4e77b4f
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  1. 1 1
      packages/fcl-process/src/win/simpleipc.inc

+ 1 - 1
packages/fcl-process/src/win/simpleipc.inc

@@ -257,7 +257,7 @@ begin
     CDS.dwData:=MsgType;
     CDS.dwData:=MsgType;
     CDS.lpData:=Data.Memory;
     CDS.lpData:=Data.Memory;
     CDS.cbData:=Data.Size;
     CDS.cbData:=Data.Size;
-    Windows.SendMessage(FHWnd,WM_COPYDATA,0,Integer(@CDS));
+    Windows.SendMessage(FHWnd,WM_COPYDATA,0,PtrInt(@CDS));
   Finally
   Finally
     FreeAndNil(FMemStr);
     FreeAndNil(FMemStr);
   end;
   end;