程序2-1 SCRNSIZE程序

program Scrnsize;
uses
  windows;

procedure MessageBoxPrintf(Caption, Format: PChar; const Args: array of const);
var
  OutBuff: array[0..100] of Char;
  OutList: array of LongWord;
  j: Integer;
begin
  SetLength(OutList, 0);
  for j := Low(Args) to High(Args) do
  begin
  //Args[j].VAnsiString
    case Args[j].VType of
      vtInteger:
      begin
        SetLength(OutList, Length(OutList)+1);
        OutList[High(OutList)]:= Args[j].VInteger;
      end;
      //vtString:
      VtAnsiString:
      begin
        SetLength(OutList, Length(OutList)+1);
        OutList[High(OutList)]:= LongWord(Args[j].VAnsiString);
      end;
    end;
  end;
  if Length(OutList)=Length(Args) then
  begin
    wvsprintf(OutBuff, Format, @OutList[0]);
    MessageBox(0, OutBuff, Caption, 0);
  end;
end;

var
  cxScreen, cyScreen: Integer;
 // user: AnsiString;
begin
  cxScreen:= GetSystemMetrics(SM_CXSCREEN);
  cyScreen:= GetSystemMetrics(SM_CYSCREEN);
 // user:= 'zwz_good';
  MessageBoxPrintf('Scansize', 'The Screen is %i pixels wide by %i pixels high edit by %s',
                   [cxScreen, cyScreen]);
end.