Log debug message in helpers.ShellExec(), so we can check the url which Heidi sends to MariaDB's explain analyzer. See http://www.heidisql.com/forum.php?t=18677

This commit is contained in:
Ansgar Becker
2015-06-13 10:21:28 +00:00
parent 4e65ed8d5b
commit 9368f3147c

View File

@@ -928,7 +928,15 @@ end;
@param string Working directory, only usefull is first param is a system command
}
procedure ShellExec(cmd: String; path: String=''; params: String='');
var
Msg: String;
begin
Msg := 'Executing shell command: "'+cmd+'"';
if not path.IsEmpty then
Msg := Msg + ' path: "'+path+'"';
if not params.IsEmpty then
Msg := Msg + ' params: "'+params+'"';
MainForm.LogSQL(Msg, lcDebug);
ShellExecute(0, 'open', PChar(cmd), PChar(params), PChar(path), SW_SHOWNORMAL);
end;