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