lisans alma key.dat uzantılı dosyanın gizlenmesi

[mehmet 45]

Değerli Arkadaşlar programımın lisans alma bölümündeki problemimi bir türlü halledemedim. yardımlarınızı bekliyorum.

var
Dir, Path : string;
FileHandle : Integer;
begin
Dir := '';
GetDir(0, Dir);
Path := Dir + '\' + CodeFile;
if not FileExists(Path) then
FileHandle := FileCreate(Path)
else
FileHandle := FileOpen(Path, fmOpenWrite);
FileSeek(FileHandle, Index * SizeOf(Code), 0);
FileWrite(FileHandle, Code, SizeOf(Code));
FileClose(FileHandle);
end;

Lisans Dosyam c:\programın içinde key.dat olarak saklanıyor. ben ise, key.dat dosyasını c:\Windows da saklanmasını istiyorum bunu bir türlü halledemedim yardımlarınızı bekliyorum. dir:='C:\Windows'; yapıyorum ama olmuyor.

[Battosai]

windows dizinini bulan bir sürü fonksiyondan biri....

Kod: Tümünü seç

function WindowsDirectory: string;
var
  WinDir: PChar;
begin
  WinDir := StrAlloc(MAX_PATH);
  GetWindowsDirectory(WinDir, MAX_PATH);
  Result := string(WinDir);
  if Result[Length(Result)] <> '\' then
    Result := Result + '\';
  StrDispose(WinDir);
end;