windows\\system....

Denne funktion returnerer stien til Windows\' systemmappe:

uses
  Registry;

function SysDir: string;

var
  Reg: TRegistry;

begin
  Result := \'\';

  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  if Reg.OpenKey(\'Software\\Microsoft\\Windows\\CurrentVersion\\Setup\', False) then
    Result := Reg.ReadString(\'SysDir\');
  Reg.Free;
end;

Bagefter kan du kopiere filen med CopyFile (kan ikke helt huske syntaksen til den).

Der kan godt være fejl hist og her, da jeg ikke har skrevet koden i Delphi.

det virker kun under win98... det jeg er ude efter er noget med GetSystemDirectory (en komando)????

hvis det er system mappen du vil ha kan du bruge GetSystemDirectory


procedure TForm1.Button1Click(Sender: TObject);
var
  Root: PChar;
  VolName: array[0..255] of Char;
  SerialNumber,
  MaxCLength,
  FileSysFlag: DWord;
  FileSysName: array[0..255] of Char;
begin
  Root := PChar(Copy(GetCurrentDir, 1, 2) + \'\\\');

  GetVolumeInformation(Root, VolName, 255, @SerialNumber, MaxCLength, FileSysFlag, FileSysName, 255);
  Edit1.Text :=  VolName;
  Edit2.Text := IntToHex(SerialNumber, 0);
end;

Det var det forkete eksempel
her er det rigtige:

procedure TForm1.Button1Click(Sender: TObject);
var
  SysDir: PChar;
begin
  SysDir := StrAlloc(MAX_PATH);

  GetSystemDirectory(SysDir, MAX_PATH);
  ShowMessage(StrPas(SysDir));
  StrDispose(SysDir);
end;