Added a more helpful label to the text area for exclusion of folders when persisting the RAM-disk on shutdown.

Replaced the suspicious word "SkypeLog" for the assembly name in the manifest which was a left-over from some copy/pasting from another project in the past.
Removed the unused function SplitPath from RamSync.pas
Fixed a bug in function SaveSettings which can throw access violation on empty lines in the list of exclusion folders when persisting the RAM-disk on shutdown (thanks to SkybuckFlying for pointing out the bug)
Added functions WidePosEx and WStrDelete which are missing from the free TntUnicode package (only present in TMS Unicode)

Author: tmcdos

Main.dfm

@@ -108,16 +108,29 @@ object frmUI: TfrmUI
     OnClick = chkSyncClick
   end
   object grpSync: TGroupBox
-    Left = 16
-    Top = 220
-    Width = 269
-    Height = 169
-    Caption = ' Do not persist these folders (no wildcards) '
+    Left = 12
+    Top = 212
+    Width = 274
+    Height = 177
+    Caption = ' Do not persist these folders '
     Enabled = False
     TabOrder = 8
+    object txtExcludeHelp: TLabel
+      Left = 6
+      Top = 18
+      Width = 260
+      Height = 13
+      Caption = 'No nesting - only root folders and no wildcards'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object chkDelete: TCheckBox
       Left = 8
-      Top = 24
+      Top = 40
       Width = 249
       Height = 17
       Hint = 
@@ -130,9 +143,9 @@ object frmUI: TfrmUI
     end
     object memoIgnore: TTntMemo
       Left = 2
-      Top = 52
-      Width = 265
-      Height = 115
+      Top = 68
+      Width = 270
+      Height = 107
       Hint = 
         'One folder per line,'#13#10'no wildcards, no subfolders,'#13#10'no drive let' +
         'ter - folders are'#13#10'relative to the root of RAM-disk'

Main.pas

@@ -30,6 +30,7 @@   TfrmUI = class(TForm)
     memoIgnore: TTntMemo;
     btnInstall: TButton;
     btnUninstall: TButton;
+    txtExcludeHelp: TLabel;
     procedure btnApplyClick(Sender: TObject);
     procedure btnInstallClick(Sender: TObject);
     procedure btnLoadClick(Sender: TObject);
@@ -58,14 +59,51 @@ implementation
 
 {$R *.dfm}
 
-Uses Definitions,RamDetect,RamRemove,RamCreate,Types,StrUtils,WinSvc,TntRegistry,TntFileCtrl,TntSysUtils;
+Uses Definitions,RamDetect,RamRemove,RamCreate,Types,StrUtils,WinSvc,TntRegistry,TntFileCtrl,TntWideStrUtils;
 
 const
   serviceName = 'ArsenalRamDisk';
 
 Var
   ramDiskConfig: TRamDisk;
 
+procedure WStrDelete(var S: WideString; Index, Count: Integer);
+var
+  L, N: Integer;
+  NewStr: PWideChar;
+begin
+  L := Length(S);
+  if (L > 0) and (Index >= 1) and (Index <= L) and (Count > 0) then
+  begin
+    Dec(Index);
+    N := L - Index - Count;
+    if N < 0 then N := 0;
+    if (Index = 0) and (N = 0) then NewStr := nil else
+    begin
+      NewStr := WStrAlloc(Index + N);
+      if Index > 0 then
+        Move(Pointer(S)^, NewStr^, Index * 2);
+      if N > 0 then
+        Move(PWideChar(Pointer(S))[L - N], NewStr[Index], N * 2);
+    end;
+    S := WStrPas(NewStr);
+    WStrDispose(NewStr);
+  end;
+end;
+
+function WidePosEx(const SubStr, S: widestring; Offset: Integer = 1): Integer;
+var
+  i: integer;
+  tmp: widestring;
+begin
+  Result := 0;
+  tmp := S;
+  WStrDelete(tmp,1,Offset);
+  i := Pos(SubStr, tmp);
+  if (i > 0) then
+    Result := Offset + i;
+end;
+
 procedure TfrmUI.btnApplyClick(Sender: TObject);
 var
   msg:String;
@@ -228,7 +266,7 @@ procedure TfrmUI.FormCreate(Sender: TObject);
       while i<memoIgnore.Lines.Count Do
       Begin
         s:=Trim(memoIgnore.Lines[i]);
-        If s[2]=':' then s:=Copy(s,4,MaxInt);
+        If (Length(s) >= 2) And (s[2]=':') then s:=Copy(s,4,MaxInt);
         If (s='')or(WidePosEx('\',s)>0)or(WidePosEx('/',s)>0) then memoIgnore.Lines.Delete(i)
         else
         Begin

RamService.manifest

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
 <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> 
-  <assemblyIdentity version="1.0.0.0" processorArchitecture="X86" name="SkypeLog" type="win32"/> 
+  <assemblyIdentity version="1.0.0.0" processorArchitecture="X86" name="RamdiskService" type="win32"/> 
   <description>Arsenal RAM-disk service</description> 
   <!-- Identify the application security requirements. -->
   <ms_asmv2:trustInfo xmlns:ms_asmv2="urn:schemas-microsoft-com:asm.v2">

RamSync.pas

@@ -294,7 +294,7 @@ procedure TreeDelete(const src,dest:WideString;excluded:TTntStringList);
   Until WideFindNext(SR) <> 0;
   WideFindClose(SR);
 end;
-
+{
 Procedure SplitPath(const path:WideString;var list:TStrArray);
 var
   oldPos,newPos,k:Integer;
@@ -307,14 +307,14 @@ procedure TreeDelete(const src,dest:WideString;excluded:TTntStringList);
     if newPos=0 then list[k]:=Copy(path,oldPos,MaxInt)
     Else
     Begin
-      list[k]:=Copy(path,oldPos,newPos);
+      list[k]:=Copy(path,oldPos,newPos - oldPos);
       oldPos:=newPos;
     end;
     Inc(k);
   Until newPos=0;
   SetLength(list,k);
 end;
-
+}
 Procedure SaveRamDisk(Var existing:TRamDisk);
 var
   list:TTntStringList;

RamdiskUI.dof

@@ -115,7 +115,7 @@ AutoIncBuild=0
 MajorVer=1
 MinorVer=1
 Release=1
-Build=2
+Build=9
 Debug=0
 PreRelease=0
 Special=0
@@ -126,7 +126,7 @@ CodePage=1251
 [Version Info Keys]
 CompanyName=
 FileDescription=
-FileVersion=1.1.1.2
+FileVersion=1.1.1.9
 InternalName=
 LegalCopyright=
 LegalTrademarks=