Multiselect mit GetOpenFileName

[flow]

Hallo,

hab ein Problem mit GetOpenFileName. Möchte in meinem Texteditor mehrere Files aufeinmal öffnen können. Das ist ja auch nicht das Problem, nur wenn ich mehrere selektiere und auf OPEN klicke gibt mir StrPas(ofn.lpstrFile) nur den Pfad zu den Files zurück, aber nicht welche ich ausgewählt habe! Ist ein Fehler in meinem Code?

Delphi-Quellcode:

function OpenDlgBox(sTitle, sFilter : String; iFilterIndex: Integer; hHandle : HWND) : String;
var
  ofn: TOpenFileName;
  szFile: array[0..MAX_PATH] of Char;
begin
  FillChar(ofn, SizeOf(TOpenFileName), 0);
  with ofn do
  begin
    lStructSize := SizeOf(TOpenFileName);
    hwndOwner := hHandle;
    lpstrFile := szFile;
    nMaxFile := SizeOf(szFile);
    lpstrTitle := PChar(sTitle);
    lpstrInitialDir := nil;
    StrPCopy(lpstrFile, Result);
    lpstrFilter := PChar(sFilter);
    nFilterIndex := iFilterIndex;
    Flags := 524804;
  end;
  if GetOpenFileName(ofn) then Begin
    Result := StrPas(ofn.lpstrFile);
  end;
end;

Danke,

FLOW