CreateFile funktioniert nicht nach Aufruf von OpenDialog

[codenoob]

Hi Delphianer

Ich habe da folgendes Problem.
Ich habe 2 Buttons auf meiner Form der eine Button erzeugt beim Klick eine Datei und der andere öffnet ein Opendialog und ladet ein Icon in die Image rein.
Wenn ich gleich nach dem Start der Form den Button klicke der die Datei erzeugt dann macht er das auch und die Datei wird erstellt.
Wenn ich aber zuerst den Button mit dem Opendialog klicke und eben ein Icon in die Image lade, dann funktioniert das mit der Datei erstellen mit Button 2 nicht mehr.
Ich habe kein durchblick mehr wieso das phänomen auftritt.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Buttons;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Image18: TImage;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    FileHandle : THandle;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  MyIcon : TIcon;
  Od: TOpenDialog;
begin
  Od := TOpenDialog.Create(self);
  Od.Filter := 'Icon|*.ico';
  Od.InitialDir := GetCurrentDir;

  if Od.Execute then begin

     MyIcon := TIcon.Create;
    Try
      MyIcon.LoadFromFile(Od.FileName);
      Image18.Picture := nil;
      Image18.Picture.Bitmap.Assign(MyIcon);
    Finally
      MyIcon.Free;
    End;
  end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
    FileHandle := CreateFile(pchar('test.dat'),GENERIC_WRITE,FILE_SHARE_WRITE,0,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);
    CloseHandle(FileHandle);
end;

end.

lg. Tom

[bra]

Od := TOpenDialog.Create(self);

Od wird nirgendwo freigegeben, ist das das Problem?

[himitsu]

Doch, es funktioniert, aber "irgendwer" (DU) ist so doof und arbeitet mit relativen Pfaden und wundert sich dann nicht gefunden wird, bzw. in deinem Fall nicht erstellt werden darf, da du zufälliger Weise dort wohl keine Schreibrechte hast.

Und nein, der OpenDialog ist nicht Schuld, nur weil der das aktuelle Arbeitsverzeichnis verändert ... sowas tun auch noch viele Andere.

[codenoob]

Funktioniert auch nicht wenn ich am Schluss ein
Od.free mache

[Neutral General]

Ich schätze mal durch den OpenDialog wird das CurrentDirectory geändert wodurch test.dat nicht mehr in das Programmverzeichnis geschrieben wird, sondern woanders hin.
Am besten gibst du den absoluten Pfad an. Z.B. mit:

ExtractFilePath(Application.ExeName) + 'test.dat' // oder paramstr(0) statt Application.Exename

[codenoob]

oohhhh mann bin ja wirklich Doof es war wegen den relativen Pfaden.

Danke himitsu für den Hinweis.

Ich ärgere mich grad selbst über meine Doofheit

aber jetzt funktionierts