FillChar(OpenFN, SizeOf(OpenFN), 0);
szFile := '';
with OpenFN do begin
HWNDOwner := MainForm;
Flags := OFN_HIDEREADONLY or OFN_NOCHANGEDIR;
lStructSize := SizeOf(OpenFN);
lpstrFile := szFile;
nMaxFile := sizeOf(szFile);
case Save of
0: lpstrTitle := ' Îòêðûòü...';
1: lpstrTitle := ' Ñîõðàíèòü...';
2: lpstrTitle := ' Ñîõðàíèòü êàê...';
end;
lpstrInitialDir := PChar(FolderPath);
lpstrFilter := PChar('Ôàéëû *.' + Ext + #0'*.' + Ext + #0);
lpstrDefExt := PChar(Ext);
end;
if Save = 0 then Result := GetOpenFileName(OpenFN)
else Result := GetSaveFileName(OpenFN);
Может, нужен флаг, чтобы диалог, скажем, не лез в сеть?