他のアプリ（メモ帳）のような保存ダイアログを表示するには？ (ID:23484)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

手抜きして、こんな感じ
D5でWinXPとWinNT4.0(今までと同じダイアログになることを)で確認

type
  TSaveDialog500	=class(TSaveDialog)
  protected
    function TaskModalDialog(DialogFunc: Pointer; var DialogData): Bool; override;
  end;

function TSaveDialog500.TaskModalDialog(DialogFunc: Pointer; var DialogData): Bool;
type
  TOpenFilename500 = packed record
    OpenFilename: TOpenFilename;
    pvReserved: Pointer;
    dwReserved: DWORD;
    FlagsEx: DWORD;
  end;
var
  dlgData: TOpenFilename;
  dlgData500: TOpenFilename500;
begin
  dlgData := TOpenFilename(DialogData);
  CopyMemory(@dlgData500, @dlgData, SizeOf(TOpenFilename));
  dlgData500.pvReserved := nil;
  dlgData500.dwReserved := 0;
  dlgData500.FlagsEx    := 0;

{ Win2k or WinME 以降}
  if (Win32MajorVersion >= 5) and
     (Win32Platform = VER_PLATFORM_WIN32_NT) or { Win2k }
     ((Win32Platform = VER_PLATFORM_WIN32_WINDOWS) and
      (Win32MajorVersion >= 4) and
      (Win32MinorVersion >= 90) ) then begin
    dlgData500.OpenFilename.lStructSize := SizeOf(TOpenFilename500);
  end;

Result := inherited TaskModalDialog(DialogFunc, dlgData500);
end;

←解決時は質問者本人がここをチェックしてください。

戻る