my_wiki_dir Function

Unit
Unit5

Declaration
Function my_wiki_dir: String;

Implementation

function my_wiki_dir():String;
function my_dcs():String;
var reg1:TRegINiFile;
begin
reg1:=TRegINiFile.Create;
reg1.RootKey := HKEY_CURRENT_USER;
result:=IncludeTrailingBackslash(reg1.ReadString('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders','Personal',''));
reg1.free;
end;

begin
if FileCtrl.DirectoryExists(my_dcs+'My Wiki Documents') then
   result:=my_dcs+'My Wiki Documents'
else
   result:=ExcludeTrailingBackslash(my_dcs);
End;


HTML generated by Time2HELP
http://www.time2help.com