Beta tester needed for small privacy utility

[daydee]

Well, I've recently finished a small file/folder/application locking utility. I need some beta testers and some feedback. I know it does lock items good under win98 but would like to know if this would work with versions above Win98. specially would like to know if it would work under XP.

It's very straight forward GUI using drag and drop feature but then again the utiility does'nt cost anything... oh well, one good thing is that it will not save or modify your registry in anyway.
Thanks in advance you guys. You can download the program from the link below: (without VB6 run-time libraties) http://pages.globetrotter.net/bakery...1.02L_nrtl.zip

This might be too much to aske but I've included a .reg file that might help get it to work for XP users??
You may have to reboot though for the change to take effect?
You can also look inside the file to see what keys are actually involved here but it does only change two values within the same key.
Thanks again

[daydee]

I see the file did not attached so I'll try again.

[A[L]C]

do you know if it works in 2k?

[daydee]

Originally posted by A[L]C
do you know if it works in 2k?

Not sure but I believe whatever works in 2k probably work in XP so it you have 2k and it works for you that would be great news!
Please let me know!

[A[L]C]

nope didnt work in 2k

made a txt file, locked it... it changed the extension, but i opened the file in notepad and could read it

[daydee]

Thanks A[L]C that's too bad
The only thing I can suggest now if your up to it is enter the info from the reg file to your registry by clicking on it, reboot and try again?

I was told that those two key values could be added to any registry without creating any problems so you need not worry here.
If the app still cannot lock a file or folder you can change those values back or delete them altogether.

Thanks again for your help!

[arsmakman]

I use Win 98 SE and it works great, I can't delete it or change the extension.
And you can't fool the prog by making a '_*.*_' file!

Works great.

[daydee]

Thanks arsmakman for trying it out, i only wish I would have made this thing a few years back when 98 was in
I'm sure I could have gotten a lot of people interested in it then but I've only been programming since I joined this forum so

Anyway, I wanted to make a proggy that would let me lock / unlock stuff really quick and that would still allow me to see what I 've locked... I din't want to hide anything.
I know it's not fool proof but then again what is?
BTW you can even drag drop stuff straight from search dialog box or windows explorer

[arsmakman]

Originally posted by daydee
BTW you can even drag drop stuff straight from search dialog box or windows explorer

I know, how did you do that?! I could really use it for one of my apps!

[daydee]

Originally posted by arsmakman

I know, how did you do that?! I could really use it for one of my apps!

Well actually all you have to do here is set your label or Textbox OleDropMode property to Manual.
Then... in OLEDragDrop event:

Private Sub Label1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim FileName As String
FileName = Data.Files.Item(1) ' you could use Label1.Caption = Data.Files.Item(1) by itself.
 
Label1.Caption = ShortenFileName(FileName, 57) ' I use this to shorten any long file names.  see Function below
 
End Sub

Function to shorten long file names:
could always be improved

Function ShortenFileName(strFileName As String, MaxChr As Integer) As String
' function used to shorten file names to the  length passed to the MaxChr parameter.
Dim i as Integer
Dim LenLbl as Integer
Dim strTemp As String
 
        strTemp = strFileName
        LenLbl = MaxChr
 
                If Len(strTemp) <= LenLbl Then
                ShortenFileName = strTemp
                Exit Function
                End If
 
       LenLbl = LenLbl - 6
 
                For i = Len(strTemp) - LenLbl To Len(strTemp)
                If Mid$(strTemp, i, 1) = "\" Then Exit For
                Next
           ShortenFileName = Left$(strTemp, 3) & "...~" & Right$(strTemp, Len(strTemp) - 30)
        
End Function