拆分字符串，GetHtmlByWebBrowser，UnicodeToMBCS，提升进程权限

1、

1. // 根据字符串，拆分字符串，相当于vb中的split函数
2. function SplitString(const Source, ch: string): TStringList;
3. var
4. temp: String;
5. i: Integer;
6. begin
7. Result := TStringList.Create;
8. // 如果是空自符串则返回空列表
9. if Source = '' then
10. exit;
11. temp := Source;
12. i := pos(ch, Source);
13. while i <> 0 do
14. begin
15. Result.add(copy(temp, 0, i - 1));
16. Delete(temp, 1, i + length(ch) - 1);
17. i := pos(ch, temp);
18. end;
19. Result.add(temp);
20. end;
21. function isSupportFileTypes(ext: string;iniFilePath:string): Boolean;
22. var
23. supportFileTypes: TStringList;
24. i: Integer;
25. myini:TIniFile;
26. config:string;
27. begin
28. Result := False;
29. //iniFilePath要绝对路径
30. myini:=TIniFile.Create(iniFilePath);
31. supportFileTypes := TStringList.Create;
32. config:=myini.ReadString('supportExtractFileType','config','');
33. supportFileTypes:=SplitString(config,'|');
34. // zip apk rar dll exe等不支持抽取文本信息
35. for i := 0 to supportFileTypes.Count - 1 do
36. begin
37. if Trim(supportFileTypes[i]) = LowerCase(ext) then
38. begin
39. Result := True;
40. //ShowMessage('true');
41. Break;
42. end;
43. end;
44. supportFileTypes.Free;
45. myini.Free;
46. end;

2、

1. function TFrmMain.GetHtmlByWebBrowser(const WebBrowser: TWebBrowser;
2. URL: string): string;
3. var
4. ms: TMemoryStream;
5. MyStrList: TStringList;
6. begin
7. Try
8. WebBrowser.Navigate(URL);
9. Except
10. End;
11. while WebBrowser.ReadyState <> READYSTATE_COMPLETE do
12. Application.ProcessMessages;
13. While not Assigned(WebBrowser.Document) do
14. Application.ProcessMessages;
15. ms := TMemoryStream.Create;
16. MyStrList := TStringList.Create;
17. (WebBrowser2.Document as IPersistStreamInit)
18. .Save(TStreamAdapter.Create(ms), True);
19. ms.Position := 0;
20. MyStrList.LoadFromStream(ms, TEncoding.UTF8);
21. Result := MyStrList.Text;
22. end;

3、

1. function UnicodeToMBCS( // 将Unicode编码字符串转换成多字节字符串
2. mCodePage: UINT; // 对照表页码
3. mUnicode: WideString // Unicode编码字符串
4. ): string; // 返回处理后的字符串
5. var
6. L: Integer;
7. begin
8. L := WideCharToMultiByte(mCodePage, 0, PWideChar(mUnicode), -1, nil, 0, nil,
9. nil);
10. SetLength(Result, L);
11. if L <= 0 then
12. Exit;
13. WideCharToMultiByte(mCodePage, 0, PWideChar(mUnicode), -1, @Result[1], L,
14. nil, nil);
15. end;
16. function MBCSToUnicode( // 将多字节字符串转换成Unicode编码字符串
17. mCodePage: UINT; // 对照表页码
18. mMBCS: string // 多字节字符串
19. ): WideString; // 返回处理后的字符串
20. var
21. L: Integer;
22. begin
23. L := MultiByteToWideChar(mCodePage, 0, PAnsiChar(mMBCS), -1, nil, 0);
24. SetLength(Result, L);
25. if L <= 0 then
26. Exit;
27. MultiByteToWideChar(mCodePage, 0, PAnsiChar(mMBCS), -1, @Result[1], L);
28. end;
29. procedure TForm3.Button1Click(Sender: TObject);
30. var
31. str,str2:string;
32. begin
33. str:=UnicodeToMBCS(CP_UTF8,'你好你是猪test');
34. ShowMessage(str);
35. str2:=MBCSToUnicode(CP_UTF8,str);
36. ShowMessage(str2);
37. end;

4、提升进程权限：

1. procedure TForm1.GetPrivilege;
2. var
3. NewState:       TTokenPrivileges;
4. lpLuid:         Int64;
5. ReturnLength:   DWord;
6. ToKenHandle:    Cardinal;
7. begin
8. OpenProcessToken(GetCurrentProcess,
9. TOKEN_ADJUST_PRIVILEGES
10. OR TOKEN_ALL_ACCESS
11. OR STANDARD_RIGHTS_REQUIRED
12. OR TOKEN_QUERY,ToKenHandle);
13. LookupPrivilegeValue(nil,'SeShutdownPrivilege',lpLuid);
14. NewState.PrivilegeCount:=1;
15. NewState.Privileges[0].Luid:=lpLuid;
16. NewState.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
17. ReturnLength:=0;
18. AdjustTokenPrivileges(ToKenHandle,False,NewState,0,nil,ReturnLength);
19. end;

5 、stringbuilder

1. procedure TForm2.Button1Click(Sender: TObject);
2. var
3. sb: TStringBuilder;
4. begin
5. sb := TStringBuilder.Create;
6. sb.Append('test');
7. sb.AppendLine;//换行
8. sb.AppendFormat('%s %d', ['Delphi', 2009]);
9. sb.AppendLine;//换行
10. sb.AppendLine('[2015-05-04 09:00:03||android0033333][2015-05-04 08:55:28||android003][2015-05-04 08:54:33||android002][2015-05-04 08:53:50||android01][2015-05-04 08:38:02||android]');
11. // sb.AppendLine('[2015-6-2 09:19:41||test][2015-6-2 09:21:12||fuck]');
12. sb.Replace('[', '');
13. sb.Replace(']', '');
14. ShowMessage(sb.ToString);
15. sb.Free;
16. end;

6、delphi 字符串操作函数
查找位置函数
[调用格式]:pos(s1,s2);Integer;
[功能]：返回字符串s1在字符串s2中首次出现的位置，若s2中不存在s1，则返回0。
[说明]:  若s1在s2当中,则必须满足s1的所有字符都在s2中，即s1是s2哦子串。
[例如]:  x:=pos('bx','adcd');   //x的值为2
合并字符串过程
[调用格式]
Appendstr(var l;const s2);
[功能]:相同于执行s1:='s1+s2';
[说明]:本过程比语句"s1:=s1+s2";执行效率高

截取子字符串函数
[调用格式]： Copy(str, m, n): String;
[功能]：在字符串str 中截取从第 m 个字符开始长度为n 的子字符串，并作为函数的返回值。
[说明]：若m大于s 的长度，则返回一个空串；若从第m 个字符到s 的结尾不足n 个字符，则返回其间的所有字符。
[例如]：
Source code ( By http://www.fishc.com )   
s1:= Copy( ‘IloveFishc！', 6, 5 ); // s1 的值为‘Fishc'
s2:= Copy( ‘小甲鱼爱美眉！’, 4, 5 ); // s2 的值？
s3:= Copy( ‘IloveFishc！’, 1, 1 ); 
s4:= Copy( ‘IloveFishc！’, 0, 1);
注意：s3 和 s4 其实是一样的！

删除子字符串过程
[调用格式]：Delete( str, m, n );
[功能]：在字符串str 中删除从第m个字符开始长度为n的子字符串。
[说明]：
如果m大于str 的长度，则不删除任何字符； 
如果从第m 个字符开始到str 的末尾不足n个字符，则删除其间的所有字符； 
如果n小于等于0，则不删除任何字符。

插入子字符串过程
[调用格式]：Insert( str1, str, k );
[功能]：将字符串str1插入到字符串str 中的第k个字符处。

function UpperCase(const S: string): string;          //转大写
function LowerCase(const S: string): string;          //转小写
StringReplace 
SetLength
CopyMemory
GetMem
Move

http://blog.csdn.net/earbao/article/details/12883857