System.SysUtils.FileCreate
Delphi
function FileCreate(const FileName: string): THandle;
function FileCreate(const FileName: string; Rights: Integer): THandle;
function FileCreate(const FileName: string; Mode: LongWord; Rights: Integer): THandle;
C++
extern DELPHI_PACKAGE Winapi::Windows::THandle __fastcall FileCreate(const System::UnicodeString FileName)/* overload */;
Inhaltsverzeichnis
Eigenschaften
| Typ | Sichtbarkeit | Quelle | Unit | Übergeordnet |
|---|---|---|---|---|
| function | public | System.SysUtils.pas System.SysUtils.hpp |
System.SysUtils | System.SysUtils |
Beschreibung
Erstellt eine neue Datei.
FileCreate erstellt eine neue Datei mit dem angegebenen Namen. Wenn der Rückgabewert nicht INVALID_HANDLE_VALUE lautet, war die Funktion erfolgreich und der Wert ist das Datei-Handle der neuen Datei. Der Rückgabewert INVALID_HANDLE_VALUE gibt an, dass ein Fehler aufgetreten ist.
Der Rückgabetyp für FileCreate, da Delphi 2010 von einem Integertyp in THandle geändert wurde.
var
MyFile: THandle;
begin
MyFile := FileCreate('C:\temp\bla.txt');
if MyFile = INVALID_HANDLE_VALUE then
raise Exception.Create('File already exists');
end;
Um das frühere Verhalten zu emulieren, könnten Sie den Rückgabewert von FileCreate in NativeInt umwandeln. Dann gibt ein Rückgabewert von -1 einen Fehler an. Im folgenden Codefragment wird dies gezeigt.
var
MyFile: Integer; // for 32bit platform.
begin
MyFile := NativeInt(FileCreate('C:\temp\bla.txt'));
if MyFile = -1 then
raise Exception.Create('File already exists');
end;
Hinweis: Der Parameter Rights wird auf anderen als Windows-Plattformen verwendet, wenn Mode
fmCreate enthält. Details finden Sie in der Beschreibung des plattformspezifischen Systemaufrufs “open”. Zum Beispiel: Linux-Handbuchseite.