使用sharememory方式在各程式之間傳送參數

//宣告部分，寫入及讀取端程式都要有
const
  _SMWithXMonitorPolicy             =   'XFortMonitorPolicy';

type
  TCmdDataWithMonitorPolicy  =   record    //  policy
    btData1:                    Byte;    //壓縮率
    btData2:                    Byte;    //縮放率
    btData3:                    Byte;    //
    boolData1:                  Boolean;   //是否抓完整圖   ?
    boolData2:                  Boolean;
    boolData3:                  Boolean;
    dwData1:                    DWORD;   //錄影間隔時間(秒)   ?
    dwData2:                    DWORD;   //影像長度(pixel) ?
    dwData3:                    DWORD;   //影像寬度(pixel)  ？
    dwData4:                    DWORD;
    dwData5:                    DWORD;
    dwData6:                    DWORD;
    intData1:                   Integer; //sessionid
    intData2:                   Integer; //usrid
    intData3:                   Integer; //port
    intData4:                   Integer; 
    intData5:                   Integer;
    int64Data1:                 Int64;
    int64Data2:                 Int64;
    dtDateTimeData1:            TDateTime; // Double(8 bytes)
    dtDateTimeData2:            TDateTime;
    ptData1:                    Pointer;
    ptData2:                    Pointer;
    strData1:                   array [0..511] of Char; //IP
    strData2:                   array [0..511] of Char; //擷取端電腦名稱
    strData3:                   array [0..511] of Char;
    strData4:                   array [0..511] of Char;
    strData5:                   array [0..511] of Char;
  end;
  PCmdDataWithMonitorPolicy  =   ^TCmdDataWithMonitorPolicy;


public
    g_hShareMemPolicy       :Thandle;
    g_pShareMemPolicy       :Pointer;

//一端的create須先建立起sharememory
create
  g_hShareMemPolicy := CreateFileMapping(
    $FFFFFFFF,                    // Shared memory File，Handle 傳入 $FFFFFFFF
    nil,                          // 不設定安全屬性
    PAGE_READWRITE,               // 存取模式設定為可讀寫以便行程交換資料
    0,                            // 使用 paging file 時一般將之設為零
    SizeOf(TCmdDataWithMonitorPolicy), // 共享記憶體的大小 2048bytes
    _SMWithXMonitorPolicy);             // 其他的行程將以此名稱參考到選擇共享記憶體

  //MapViewOfFile函數返回一個指向共用記憶體塊的在該程式記憶體空間中有效的指標
  g_pShareMemPolicy :=MapViewOfFile(
    g_hShareMemPolicy ,                  // File-mapping object 的 Handle 值
    FILE_MAP_ALL_ACCESS,          //設為 FILE_MAP_ALL_ACCESS 開放存取
    0,
    0,
    //0);                         // 映射回來的 byte 數
    SizeOf(TCmdDataWithMonitorPolicy));

//將資料寫入sharememory中
procedure TFormMain.Button1Click(Sender: TObject);
begin
  PCmdDataWithMonitorPolicy(g_pShareMemPolicy)^.btData1 := 100;  //壓縮率
  PCmdDataWithMonitorPolicy(g_pShareMemPolicy)^.btData2 := 90;   //縮放率


  PCmdDataWithMonitorPolicy(g_pShareMemPolicy)^.intData1 := 5;   //sessionid
  PCmdDataWithMonitorPolicy(g_pShareMemPolicy)^.intData2 := 33;   //usrid
  PCmdDataWithMonitorPolicy(g_pShareMemPolicy)^.intData3 := 24137;   //port

  //IP
  FillChar(PCmdDataWithMonitorPolicy(g_pShareMemPolicy)^.strData1,SizeOf(PCmdDataWithMonitorPolicy(g_pShareMemPolicy)^.strData1),0);
  StrCopy(PCmdDataWithMonitorPolicy(g_pShareMemPolicy).strData1, PCHAR('10.1.0.3'));

  //擷取端電腦名稱
  FillChar(PCmdDataWithMonitorPolicy(g_pShareMemPolicy)^.strData2,SizeOf(PCmdDataWithMonitorPolicy(g_pShareMemPolicy)^.strData2),0);
  StrCopy(PCmdDataWithMonitorPolicy(g_pShareMemPolicy).strData2, PCHAR('Yivon'));
end;

//讀取sharememory資料
procedure TForm1.Button2Click(Sender: TObject);
var
  piRes :^Integer;
  sTmpFileName : string;
begin
  g_hShareMemPolicy := OpenFileMapping(
    FILE_MAP_ALL_ACCESS,            // Shared memory File，Handle 傳入 $FFFFFFFF
    true,
    _SMWithXMonitorPolicy);             // 其他的行程將以此名稱參考到選擇共享記憶體
  if g_hShareMemPolicy <> 0 then     //判斷這一塊SHAREMEMORY有無配置
  begin
    g_pShareMemPolicy:=MapViewOfFile(
      g_hShareMemPolicy,                  // File-mapping object 的 Handle 值
      FILE_MAP_ALL_ACCESS,          //設為 FILE_MAP_ALL_ACCESS 開放存取
      0,
      0,
    //0);                         // 映射回來的 byte 數
      SizeOf(TCmdDataWithMonitorPolicy));

    Memo1.Lines.add('壓縮率：'+inttostr(PCmdDataWithMonitorPolicy(g_pShareMemPolicy)^.btData1));
    Memo1.Lines.add('縮放率：'+inttostr(PCmdDataWithMonitorPolicy(g_pShareMemPolicy)^.btData2));
    Memo1.Lines.add('SessionID：'+inttostr(PCmdDataWithMonitorPolicy(g_pShareMemPolicy)^.intData1));
    Memo1.Lines.add('usrid：'+inttostr(PCmdDataWithMonitorPolicy(g_pShareMemPolicy)^.intData2));
    Memo1.Lines.add('Port：'+inttostr(PCmdDataWithMonitorPolicy(g_pShareMemPolicy)^.intData3));
    Memo1.Lines.add('IP：'+String(PCmdDataWithMonitorPolicy(g_pShareMemPolicy).strData1));
    Memo1.Lines.add('CapComputerName：'+String(PCmdDataWithMonitorPolicy(g_pShareMemPolicy).strData2));
  end;
end;

初始化ADOConnection函數

procedure TRecUIControl.InitADOConnectionBeginTrans(ADOConnBatchTrans: TADOConnection);
begin
  // 設定ADOConnBatchTrans物件所需參數
  with ADOConnBatchTrans do
  begin
    CommandTimeout   := 300;
    //ConnectOptions   := coAsyncConnect;        // The connection is formed asynchronously
    CursorLocation   := clUseServer;           // Connection is client-side
    LoginPrompt      := False;                 // Don't show the login dialog when connecting to a database
    Provider         := 'SQLOLEDB.1';          //
    ConnectionString := frmMain.ADOConnection1.ConnectionString;  // 取主程式的ConnectionString
  end;
end;

big problem

判斷工作管理員內的某個處理程序是否還存在

uses
    Tlhelp32;

function FindProc(ProcName: string): Boolean;   
var
    OK: Bool;
    hPL: THandle;
    ProcessStruct: TProcessEntry32;
begin
    Result := False;
    hPL := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
    ProcessStruct.dwSize := SizeOf(TProcessEntry32);
    OK := Process32First(hPL, ProcessStruct);
    while OK do
    begin
    if UpperCase(ProcessStruct.szExeFile) = UpperCase(ProcName) then
    begin
      Result := True;   
    end;
    OK := Process32Next(hPL, ProcessStruct);
    end;   
    CloseHandle(hPL);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if FindProc('bds.exe') then
  begin

  end;

end;



///////////////////new////////////
//加入process的數量判斷,若大於2,一定是重復執行囉~
function FindProc(ProcName: string): integer;
var
    OK: Bool;
    hPL: THandle;
    ProcessStruct: TProcessEntry32;
    i:integer;
begin
  i:=0;
  hPL := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
  ProcessStruct.dwSize := SizeOf(TProcessEntry32);
  OK := Process32First(hPL, ProcessStruct);
  while OK do
  begin
    if UpperCase(ProcessStruct.szExeFile) = UpperCase(ProcName) then
    begin
      i := i+1;
    end;
    OK := Process32Next(hPL, ProcessStruct);
  end;
  Result := i;
  CloseHandle(hPL);
end;

取得Windows的SessionID

windows xp的SessionID從0開始
windows vista的SessionID從1開始.0是給特殊權限如SYSTEM

function GetSessionId:DWord;
type _P2S=function (PId:DWORD; var SId:DWORD):BOOL; stdcall;
var P2S: _P2S;
    Hd :HMODULE;
    SId:DWord;
begin
  Result:=0;
  Hd:=LoadLibrary('Kernel32.dll');
  if Hd<>0 then begin
    @P2S:=GetProcAddress(Hd,'ProcessIdToSessionId');
    if Assigned(P2S) and P2S(GetCurrentProcessId,SId) then Result:=SId;
    FreeLibrary(Hd);
  end;
end;