DelphiExe -
DelphiLastSession - *******************************************************************} { Programmer: Kevin S Gallagher gallaghe@teleport.
DelphiProjects -
FlushProject -
GetProject -
GetRegValue -
GetSearchPath - You might wanted to check this yourself?
kg_FlushVars -
Len -
ReadCodeInSight - uses KGlobal;
There are better ways to acomplish this but I am
not going to code a link-list or anything else
for something that will not get used much.
RunDelphi -
SetRegValue -
SetSession -
strLastCh -
SubStr -
WhereIsDelphi - Some strings of dual CRLF's
CR
CRLF
LF
MAX_CODE
ProjectsKey
SearchPath
SessionKey
xDef
xField
xLocalDelphi
xMachince
xUserKey
aLines
aList
aString
function DelphiExe:String;
function DelphiLastSession:String;
*******************************************************************} { Programmer: Kevin S Gallagher gallaghe@teleport.com } { } { KSG 12/09/1997 "Bug Fix" } { Found slight problem in function which removed } { numerics within directory and filenames. This basiclly would } { screw-up the "Set Session" function only. } {*********************************************************************} {$DEFINE KG_DEBUG
function DelphiProjects:TStringList;
function FlushProject:boolean;
function GetProject(strName:String):String;
function GetRegValue(_RootKey: HKEY;
_Localkey,
_Field: String;
V:Variant):Variant;
function GetSearchPath:String;
You might wanted to check this yourself?
procedure kg_FlushVars;
function Len(S:String):LongInt;
procedure ReadCodeInSight;
uses KGlobal;
There are better ways to acomplish this but I am
not going to code a link-list or anything else
for something that will not get used much.
procedure RunDelphi;
procedure SetRegValue(_RootKey: HKEY;
_Localkey,
_Field: String;
V:Variant);
function SetSession(S:String):boolean;
function strLastCh(const S: String): Char;
function SubStr(const S: string; C: Char):String;
function WhereIsDelphi:String;
Some strings of dual CRLF's
CR = #13
CRLF = CR+LF
LF = #10
MAX_CODE = 500
ProjectsKey = 'Software\Borland\Delphi\3.0\Closed Projects'
SearchPath = 'Software\Borland\Delphi\3.0\Library'
SessionKey = 'Software\Borland\Delphi\3.0\Session'
xDef = 'ERROR'
xField = 'Project'
xLocalDelphi = 'Software\Borland\Delphi\3.0'
xMachince = HKEY_LOCAL_MACHINE
xUserKey = HKEY_CURRENT_USER
aLines : TStringList
aList : TStringList
aString : array[0..MAX_CODE,0..2] of String