delphi 遊戲技能問題

請問大大
LeftStr是不是 這樣定義
function LeftStr(const AText: string; const ACount: Integer): string;
var
  gs_hpjn:string

  begin
  gs_hpjn:=strtoint(leftstr(combobox14.text,pos(':',combobox14.text)-1)); 但是都錯誤
  end;
請大大解惑一下

procedure TForm1.CheckBox7Click(Sender: TObject);
var
     gs_hpjn:integer
begin
gs_hpjn:=strtoint(leftstr(combobox14.text,pos('=',combobox14.text)-1));
end;

已解決 問題 繼續寫下去 感恩 各位大大

請問大大新的問題
當我技能發招發完 然後我關掉外掛視窗 之後再從新開啟 之後再點 技能 在打勾 結果 出現 打勾打不上去
但是還是會發技能 但外掛 會停住 沒辦法點 請是記憶體 沒釋放 還是寫視窗關閉 就關閉 checkbox6.Checked:=false; 如果是這樣 請問判定關閉視窗要怎麼寫 感恩

菜鳥來學習……………………………………

感謝大大指導，從此篇受益良多

目前遇到問題1:

讀取到技能列表，但是為什麼人家丁丁讀是繁體，我讀是簡體？
是丁丁有自己再從新編碼? 還是我讀取有問題??

請大大指點

1. procedure InjectFunc(Func: Pointer; Param: Pointer; ParamSize: DWORD);
   
2. var
   
3.   hThread: THandle;
   
4.   lpNumberOfBytes: Size_T;
   
5.   ThreadAdd, ParamAdd : Pointer;
   
6. begin
   
7.   if processid<>0 then
   
8.   begin
   
9.     // ---- 寫入函數位址
   
10.     //ThreadAdd := VirtualAllocEx(ProcessID, nil, 128, MEM_COMMIT,PAGE_READWRITE);
    
11.     WriteProcessMemory(processid, ThreadAdd, Func, 128, lpNumberOfBytes);
    
12.     // ---- 　寫入參數位址
    
13.     //ParamAdd := VirtualAllocEx(ProcessID, nil, 20, MEM_COMMIT,PAGE_READWRITE);
    
14.     WriteProcessMemory(processid, ParamAdd, Param, ParamSize, lpNumberOfBytes);
    
15.     // ---- 建立遠端執行緒
    
16.     hThread := CreateRemoteThread(processid, nil, 0, ThreadAdd, ParamAdd, 0, DWord(lpNumberOfBytes));
    
17.     // ---- 等待執行緒結束
    
18.     WaitForSingleObject(hThread, INFINITE);
    
19.     CloseHandle(hThread);
    
20.   end;
    
21. end;

複製代碼

用中斷追蹤，發現只要執行到    hThread := CreateRemoteThread(processid, nil, 0, ThreadAdd, ParamAdd, 0, DWord(lpNumberOfBytes));

遊戲會整個錯誤強制關閉，由於源碼來自網路，並不了解其運作，不知道是不是有大大能幫小弟解惑

感謝大大的分享!