Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Dateien Kopieren (Ins WinDir)

    Delphi
    by ErazerZ, 21. Mär 2006
  function Copy2WinDir: Boolean;
  var
  lpBuffer: Array of Char;
  sPfad: String;
  begin
  ZeroMemory(@lpBuffer, sizeof(lpBuffer));
  GetWindowsDirectory(lpBuffer, sizeof(lpBuffer));
  sPfad := String(lpBuffer) + '\' + ExtractFileName(ParamStr(0));
  Result := CopyFile(PChar(ParamStr(0)), PChar(sPfad), False);
  end;