To Inthe

It had not been there for a month. It was there from the middle of December.

Here is the questions one more time and I will increase the points after you've answered:

How can I protect writing exe, com, zip tgz, ini, dat and other files to hard drives, folders and so on unless you type in a password? I want to make a write protection to the disk so you can not write data without typing in a password.

How can I protect opening exe, com, zip, tgz, ini, dat and other files on the hard drives, folders and so on unless you type in a password.

How can I protect editing the Regedit file?

The idea about the password protection is that every time you try copying or opening the selected files a little screen asks you for a password and locks the computer unless you type the right password? The password protector is also gonna write protect the Regedit file.

I need some good answered comments to the programming with findfirstfilenotification cause I don't understand much of it you have answered me  (se below) …

How can I registrate a program to run every time start-up of the computer (gonna be build in the program every time running?

How can I hide the whole start line (process line) not only the button? How can I show the programs and desktop behind my new program without you can access the programs and desktop (Show like background)?

How can I disable and enable autorun? I need to disable the autorun without having to restart the computer.

I also need all these programcodes to disable these described functions (disprotect regedit, writing and opening files. Disable of automatic start when reboot)?

How can I get the API-function "Clip Curser" to work in Delphi 3 Standard.

How can I show the desktop without you can open programs?  Something about a picture and to copy the screen to it.


Thanking you in anticipation
Preben Holm

I only have Delphi 3 Standard.

P.S. I'm Danish so if you also are Danish please answer me in Danish and if you are not please answer me in easy understandable English.

Maybe I give you extra points if you answer quickly and precisely…

 
 
 
   Question History  
 

 Comment Accept comment as answer
 
 From: inthe
 Date: Monday, December 13 1999 - 08:13PM CET  
 
clipcursor:

procedure TForm1.FormCreate(Sender: TObject);
var
  area : TRect;
begin
  Area.Left  := Form1.Left;
  Area.Right := Form1.Left + Form1.Width;
  Area.Top   := Form1.Top;
  Area.Bottom:= Form1.Top + Form1.Height;
  ClipCursor(@area);
 end;



procedure TForm1.FormDestroy(Sender: TObject);
begin
Clipcursor(nil); {to return control }
end;
 

 Comment Accept comment as answer
 
 From: inthe
 Date: Monday, December 13 1999 - 08:18PM CET  
 
put program in registry to run on startups:

program startup;
uses Windows,
  registry;
{$R *.RES}


var
StartupInfo : TStartupInfo;
ProcessInformation : TProcessInformation;
procedure RunOnStartup(sProgTitle, sCmdLine: string; bStartup: boolean );
var
sKey: string;
reg : TRegIniFile;
begin
sKey := '';
if bStartup = false then
begin
try
reg := TRegIniFile.Create( '' );
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.DeleteKey(
'Software\Microsoft'
+ '\Windows\CurrentVersion\Run'
+ sKey + #0,
sProgTitle);
reg.Free;
exit;
except
end;
end;

try
reg := TRegIniFile.Create( '' );
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.WriteString(
'Software\Microsoft'
+ '\Windows\CurrentVersion\Run'
+ sKey + #0,
sProgTitle,
sCmdLine );
reg.Free;
except
end;

end;
Begin
GetStartupInfo(StartupInfo);
 RunOnStartup('some title', 'C:\name_of_exe.exe', True);
end.
 
 

 Comment Accept comment as answer
 
 From: inthe
 Date: Monday, December 13 1999 - 08:21PM CET  
 
to hide from taskbar and processlist:

to hide from taskbar put this on fromcreate event:

ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
  GetWindowLong(Application.Handle, GWL_EXSTYLE)
    or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);

and to hide from crtl,alt,delete list:
 
const  RSP_SIMPLE_SERVICE = 1;
       RSP_UNREGISTER_SERVICE = 0;

function  RegisterServiceProcess(dwProcessID,dwType : DWORD) : DWORD; stdcall; external 'KERNEL32.DLL';


procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID,RSP_SIMPLE_SERVICE);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID,RSP_UNREGISTER_SERVICE);
end;  

you cant increase the points as the question is answered already.
if i knew more to help i would tell you but i gave all the code i knew that would be of help.

you should not ask so many questions in one thread because although we may be able to help you cannot expect me to know everything.
 i just try to help people the best i can and i count 8 different questions in this thread .