memuoption.pas

一个电力企业的后台管理程序

unit MemuOption;

interface

uses
  Windows, Messages, Forms, SysUtils, Classes, StdCtrls, IniFiles;

Function ReadIni(const Section,Ident,Default:string):string;
Function WriteIni(const Section,Ident,Value:string):boolean;
Function ExecFile(CmdStr:PChar):Boolean;

implementation

Function ReadIni(const Section,Ident,Default:string):string;
var
  TmpIni:TIniFile;
  sTmp:string;
begin
  sTmp:='';
  sTmp:=ExtractFileName(Application.ExeName);
  if pos('.',sTmp)>0 then
    stmp:=copy(sTmp,1,pos('.',sTmp))+'ini';
  sTmp:=ExtractFilePath(Application.ExeName)+sTmp;
  try
    TmpIni:=TIniFile.Create(sTmp);
    result:=TmpIni.ReadString(Section,Ident,Default);
  Finally
    TmpIni.Free;
  end;
end;

Function WriteIni(const Section,Ident,Value:string):boolean;
var
  TmpIni:TIniFile;
  sTmp:string;
begin
  sTmp:='';
  sTmp:=ExtractFileName(Application.ExeName);
  if pos('.',sTmp)>0 then
    sTmp:=copy(sTmp,1,pos('.',sTmp))+'ini';
  sTmp:=ExtractFilePath(Application.ExeName)+sTmp;
  try
    result:=false;
    TmpIni:=TIniFile.Create(sTmp);
    TmpIni.WriteString(Section,Ident,Value);
    result:=true;
  finally
    TmpIni.Free;
  end;
end;

Function ExecFile(CmdStr:PChar):Boolean;
var
    fRet            : BOOL;
    pi              : PROCESS_INFORMATION;
    fdwCreate       : DWORD;
    si              : STARTUPINFO;
begin
    fdwCreate := 0;
    si.cb := sizeof(si);
    si.lpReserved := NIL;
    si.lpDesktop  := NIL;
    si.lpTitle    := NIL;
    si.wShowWindow := SW_ShowNORMAL;
    si.dwX := 0;
    si.dwY := 0;
    si.dwXSize := 0;
    si.dwYSize := 0;
    si.dwXCountChars :=0;
    si.dwYCountChars :=0;
    si.dwFillAttribute :=0;
    si.dwFlags :=0;
    si.cbReserved2 :=0;
    si.lpReserved2 :=nil;
    si.hStdInput :=0;
    si.hStdOutput :=0;
    si.hStdError :=0;
    fRet := CreateProcess(NIL, CmdStr, NIL, NIL, FALSE, fdwCreate, NIL, NIL,
        si, pi);
    WaitForSingleObject(pi.hProcess, INFINITE);
    result := fRet;
end;

end.