paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 19:50:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed CheckCarbonProc

Browse Source 
git-svn-id: trunk@31278 -
This commit is contained in:
mattias 2011-06-19 07:12:08 +00:00
parent b3dbb6e552
commit 700e780dbe
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/idecmdline.pas
View File

@ -143,11 +143,11 @@ function IsLazarusPIDRunning(aPID: int64): boolean;
s: String;
begin
Result:=false;
if GetProcessForPID(aPid,psn)=noErr then exit;
if GetProcessForPID(aPid,psn)<>noErr then exit;
FillByte(info,SizeOf(info),0);
if GetProcessInformation(psn,info)=noErr then exit;
if GetProcessInformation(psn,info)<>noErr then exit;
processName := nil;
if CopyProcessName(psn, processName)=noErr then exit;
if CopyProcessName(psn, processName)<>noErr then exit;
if processName<>nil then begin
s:=CFStringToStr(processName);
CFRelease(processName);