摘要：
function CheckTask(ExeFileName: string): Boolean;constPROCESS_TERMINATE=$0001;varContinueLoop: BOOL;FSnapshotHandle: THandle;FProcessEntry32: TProcessEntry32;beginresult := False;FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);FProcessEntry32.dwSize := Sizeof(FProcessEntry32);Conti 阅读全文
摘要：
在使用google code 的时候 做个备份，git clone https://wushuangzilong@code.google.com/p/maplebanana-proxy/git config --global user.email "wushuangzilong@gmail.com"git config --global user.name "wushuangzilong@gmail.com"git add *git commit -m "update" *git push origin 阅读全文
摘要：
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtActns, ComCtrls;typeTForm1 = class(TForm)ProgressBar1: TProgressBar;Label1: TLabel;Button1: TButton;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);pr 阅读全文