🚀 go-pugleaf

Chow Hoi Ka, Eric heeft geschreven in bericht
<3746EEDC.1A12207A@sftw.umac.mo>...
>Hello,
>
>1) How to get the Windows Path ???

Question:How can I determine where the Windows directory is?Answer:
You can make a call to the Windows API functionGetWindowsDirectory().
If you want the system directory, simply call the Windows API function
GetSystemDirectory().Example:{$IFNDEF WIN32} const MAX_PATH = 144;{$ENDIF}
procedure TForm1.Button1Click(Sender: TObject);var
  a : Array[0..MAX_PATH] of char;begin  GetWindowsDirectory(a, sizeof(a));
  ShowMessage(StrPas(a));  GetSystemDirectory(a, sizeof(a));
  ShowMessage(StrPas(a));end;
>
>2) How can I create a VALUE in REGISTRY ?

Create a registry variable:

use registry;

var myreg : Tregistry

myreg := tregistry.create;
myreg.rootkey := HKEY_CURRENT_USER;
myreg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
myreg.Writestring('testregistry');
myreg.WriteInteger('12345');
myreg.closekey;
muyreg.free;

Greetings Johan Korten


>
>Such as,
>
>I want to put this value into
>\HKKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run :
>
>String ="TestRegistry"
>Value=12345
>
>
>Best regards,
>Eric
>
>