diskedit.dpr

来自「D7设计的小巧磁盘编辑器 Window2000/Xp下的小巧磁盘编辑器」· DPR 代码 · 共 52 行

program diskedit;

uses
  Sysutils,
  ShellApi,
  windows,
  Forms,
  diskedirunt in 'diskedirunt.PAS' {Form1},
  wlt in 'wlt.pas' {Form2};

 type
   TWin32Version = (wvUnknown,
                    wvWin95,
                    wvWin98,
                    wvWinNT,
                    wvWin2000) ;

function GetWinVersion: TWin32Version;
begin
   Result := wvUnknown;
   if Win32Platform = VER_PLATFORM_WIN32_WINDOWS then
     if (Win32MajorVersion > 4) or
        ((Win32MajorVersion = 4) and
        (Win32MinorVersion > 0)) then
       Result := wvWin98
     else
       Result := wvWin95
   else
     if Win32MajorVersion <= 4 then
       Result := wvWinNT
     else
       if Win32MajorVersion = 5 then
         Result := wvWin2000
end;

{$R *.res}

begin
  if (GetWinVersion=wvWin95) or (GetWinVersion=wvWin98) then
    begin
    MessageBox(0, '本程序只能在WINNT以上版本中运行!',
       '小巧磁盘编辑器', MB_OK + MB_ICONERROR + MB_DEFBUTTON2 +
       MB_TOPMOST);
    application.Terminate;
   end;
  Application.Initialize;
  application.Title:='小巧磁盘编辑器';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.