Unit DPRegstr

Classes

Functions

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

Types

Constants

CR
CRLF
LF
MAX_CODE
ProjectsKey
SearchPath
SessionKey
xDef
xField
xLocalDelphi
xMachince
xUserKey

Variables

aLines
aList
aString


Functions


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

Types


Constants

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


Variables

aLines : TStringList

aList : TStringList

aString : array[0..MAX_CODE,0..2] of String