Use id of current process in registry key, not the thread id.

This commit is contained in:
Ansgar Becker
2010-03-25 22:26:19 +00:00
parent 954b32b0df
commit 254c156964

View File

@ -3515,7 +3515,7 @@ begin
// Open the right key
if StartupMode then begin
RegPath := '\Software\' + APPNAME + ' Portable '+IntToStr(GetCurrentThreadId)+'\';
RegPath := '\Software\' + APPNAME + ' Portable '+IntToStr(GetCurrentProcessId)+'\';
PortableMode := True;
end else begin
// Do not work like a portable on exit, if at application start we didn't either