IDE does not start / IPC fails to get file in temp dir

Original Reporter info from Mantis: Martin @martin_frb

• Reporter name: Martin Friebe

Description:

In B:\lazarus_latest_svn_2\ide\lazadvancedipc.pp line 755

function TIPCServer.StartServer(const aDeletePendingRequests: Boolean): Boolean;
begin
  if Active then
    Exit(True);

  FFileHandle := FileCreate(FFileName, fmCreate or fmShareExclusive, GLOBAL_RIGHTS);
  Result := (FFileHandle<>feInvalidHandle);
  FActive := Result;
  if Result and aDeletePendingRequests then
    DeletePendingRequests;
end;

FileCreate returns an invalid filehandle. (even if the file does not exist)

This leads to
procedure TUniqueServer.StartUnique(const aServerPrefix: string);
...
  I := 0;
  while not Active do
  begin
    Inc(I);
    if I < 10 then
      ServerID := aServerPrefix+'0'+IntToStr(I)
    else
      ServerID := aServerPrefix+IntToStr(I);
    StartServer;
  end;
end;

To loop forever.

Additional information:

This happens on windows, with the TEMP dir moved to a ramdisk.

Mantis conversion info:

• Mantis ID: 35838
• OS: win 10
• OS Build: 10
• Platform: 64bit Intel
• Version: 2.1 (SVN)
• Fixed in revision: r62494 (#653dca44)