opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Display "HeidiSQL Portable" in window title

Browse Source
This commit is contained in:
Ansgar Becker
2010-03-25 22:13:18 +00:00
parent 9acec6dfe1
commit 954b32b0df
2 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/helpers.pas
View File

@@ -255,6 +255,7 @@ type
var
MainReg: TRegistry;
RegPath: String = '\Software\' + APPNAME + '\';
PortableMode: Boolean = False;
MutexHandle: THandle = 0;
dbgCounter: Integer = 0;
DecimalSeparatorSystemdefault: Char;
@@ -3513,8 +3514,14 @@ begin
Exit;
// Open the right key
if StartupMode then
if StartupMode then begin
RegPath := '\Software\' + APPNAME + ' Portable '+IntToStr(GetCurrentThreadId)+'\';
PortableMode := True;
end else begin
// Do not work like a portable on exit, if at application start we didn't either
if not PortableMode then
Exit;
end;
Screen.Cursor := crHourGlass;
try

5
source/main.pas
View File

@@ -8799,7 +8799,10 @@ begin
Cap := Cap + ' /' + ActiveDatabase;
if SelectedTable.Name <> '' then
Cap := Cap + '/' + SelectedTable.Name;
Cap := Cap + ' - ' + APPNAME + ' ' + AppVersion;
Cap := Cap + ' - ' + APPNAME;
if PortableMode then
Cap := Cap + ' Portable';
Cap := Cap + ' ' + AppVersion;
Caption := Cap;
Application.Title := Cap;
end;