Hallo,
wie kann ich ohne die Delphi VCL Öffnen/Speichern Dialoge aufrufen?
Der Code (s.u.) ist an sich in Ordnung, aber es passiert nix beim Aufruf der Prozedur.
{ MainFORM_HANDLE ist das Handle zum Form }
procedure LoadProc;
var
buffer : array [0…259] of Char;
FN: TOpenFilename;
begin
FN.lStructSize := SizeOf(TOpenFilename);
FN.hWndOwner := MAINFORM_HANDLE;
FN.hInstance := HInstance;
FN.lpstrFilter := ‚All Files‘#0’*.*’#0’Text Files’#0’*.txt’#0#0;
FN.lpstrFile := buffer;
FN.nMaxFile := 260;
FN.Flags := OFN_FILEMUSTEXIST or
OFN_PATHMUSTEXIST or
OFN_LONGNAMES or
OFN_EXPLORER or
OFN_HIDEREADONLY;
FN.lpstrTitle := ‚Title‘;
if GetOpenFileName(FN) then
MessageBox(0, PChar(FN.lpStrFile), ‚‘, MB_OK);
else
messagebox(0, ‚Fehler‘, ‚‘, 0);
end;
Wer kann helfen?
Danke schonmal,
B^B