mcommand.pas

来自「远程控制源程序(DELPHI版)推荐初学delphi的朋友研究学习,该程序为服务」· PAS 代码 · 共 37 行

unit MCommand;

interface
procedure ExecCommand(comm:pchar);

implementation
uses sysutils,windows;
function GetSubStr(min,max:integer;str:pchar):pchar;
var
  k:integer;
  tmp:array[0..1000] of char;
begin
  for k:=min to max do tmp[k-min]:=str[k];
  tmp[max-min+1]:=#0;
  result:=tmp;
end;

procedure ExecCommand(comm:pchar);
var
  tmp:array[0..1000] of char;
begin
  strcopy(tmp,GetSubStr(0,3,comm));
  strcopy(comm,pchar('Unknow Command'));
  if stricomp(tmp,pchar('quit'))=0 then
  begin
    strcopy(comm,pchar('ok,Quit Server,i know'));
    halt;
  end;
  if stricomp(tmp,pchar('exit'))=0 then
  begin
    strcopy(comm,pchar('ok,exit windows,i know'));
  end;

end;

end.