undlgshell.pas

个人写的一个操作员管理部分

unit UnDlgShell;

interface
  function Ask(str :string):Boolean;
  function AskCancel( str :string; var isYes :boolean ) :boolean;
  procedure ShowError(str :string);
  procedure ShowInfo(str :string);

implementation

uses
  SysUtils, Windows;

function Ask(str :string):Boolean;
var
  pszStr :PChar;
begin
  pszStr:=StrAlloc(256);
  pszStr:=StrPCopy( pszStr, str+'？' );
  Result := MessageBox( 0, pszStr, '操作员管理',
              MB_YESNO + MB_ICONQUESTION + MB_TASKMODAL ) = IDYES;
  StrDispose(pszStr);
end;

function AskCancel( str :string; var isYes :boolean ) :boolean;
var
  pszStr :PChar;
  i :integer;
begin
  pszStr:=StrAlloc(256);
  pszStr:=StrPCopy( pszStr, str );
  i := MessageBox( 0, pszStr, '操作员管理',
                   MB_YESNOCANCEL + MB_ICONQUESTION + MB_TASKMODAL );

  isYes := (i = IDYES);
  Result := (i <> IDCANCEL);

  StrDispose(pszStr);
end;

procedure ShowError(str :string);
var
  pszStr :PChar;
begin
  pszStr:=StrAlloc(256);
  pszStr:=StrPCopy( pszStr, str+'！' );
  MessageBox( 0, pszStr, '操作员管理',
              MB_OK + MB_ICONSTOP + MB_TASKMODAL );
  StrDispose(pszStr);
end;

procedure ShowInfo(str :string);
var
  pszStr :PChar;
begin
  pszStr:=StrAlloc(256);
  pszStr:=StrPCopy( pszStr, str+'。' );
  MessageBox( 0, pszStr, '操作员管理 ',
              MB_OK + MB_ICONINFORMATION + MB_TASKMODAL );
  StrDispose(pszStr);
end;

end.