Der Fehler bei Datei2 ist "Das
handle ist ungültig". Das kommt, wenn ich
die Datei vor der ersten starte.
Wenn ich sie danach starte, also es schon erstellt ist kommt "Das Fenster hat keine Bildlaufleisten"
Ich weiß einfach nicht was ich falsch mache, denn ich sehe nirgendswo einen Fehler!
Edit: Wenn ich CreateFileMapping nur zum lesen benutzen will dann kommt der fehler dass er das file map nicht erstellen kann weil es ja schon existiert. komischer bug:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
szFileMapping:
String = '
Czybik';
CONST_SIEBEN: PCHAR = '
sieben';
hMap: Cardinal;
hInfo: Pchar;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(hInfo^);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
hMap := CreateFileMapping(INVALID_HANDLE_VALUE,
nil, PAGE_READONLY, 0, sizeof(szFileMapping), PChar(szFileMapping));
if hMap <> 0
then
begin
hInfo := MapViewOfFile(hMap, FILE_MAP_READ, 0, 0, 0);
end;
showmessage(syserrormessage(getlasterror));
end;
end.
Wenn ich anstatt CreateFileMapping OpenFileMapping use dann kommt Zugriff verweigert
Code:
hMap := OpenFileMapping(PAGE_READONLY, false, Pchar(szFileMapping));