paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:59:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

chmhelp: clean up old ipc files

Browse Source 
git-svn-id: trunk@37814 -
This commit is contained in:
mattias 2012-06-28 13:56:19 +00:00
parent 788a19edd4
commit 8259668bfb
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/chmhelp/packages/help/lhelpcontrol.pas
View File

@ -109,6 +109,13 @@ var
begin begin
Result := False; Result := False;
{$IFDEF Unix}
{$NOTE ToDo: fix simpleipc to allow changing the filenames, then fix this }
// clean up old files
DeleteFileUTF8('/tmp/lazhelp');
DeleteFileUTF8('/tmp/lazhelpclient');
{$ENDIF}
fServerIn.Active := False; fServerIn.Active := False;
fServerIn.ServerID := NameForServer+'client'; fServerIn.ServerID := NameForServer+'client';
fServerIn.Global := True; fServerIn.Global := True;