检查自己的进程的父进程

//检查自己的进程的父进程
procedure CheckParentProc;
var //检查自己的进程的父进程
    Pn: TProcesseNtry32;
    sHandle:THandle;
    H,ExplProc,ParentProc:Hwnd;
    Found:Boolean;
    Buffer:array[0..1023]of Char;
    Path:string;
begin
    H:= 0;
    ExplProc:= 0;
    ParentProc:= 0;
    //得到Windows的目录;
    SetString(Path,Buffer,GetWindowsDirectory(Buffer,Sizeof(Buffer)- 1));
    Path:= UpperCase(Path)+ '\Explorer.EXE';//得到Explorer的路径
    //得到所有进程的列表快照
     sHandle:= CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
     Found:= Process32First(sHandle,Pn);//查找进程
     while Found do //遍历所有进程
     begin
         if Pn.szExeFile = ParamStr(0) then //自己的进程
         begin
           ParentProc:= Pn.th32ParentProcessID;//得到父进程的进程ID
           //父进程的句柄
           H:= OpenProcess(PROCESS_ALL_ACCESS,True,Pn.th32ParentProcessID);
         end
         else if UpperCase(Pn.szExeFile)= Path then
           begin
               ExplProc:= Pn.th32ProcessID;//Ex plorer的PID
               Found:= Process32Next(sHandle,Pn);//查找下一个
           end;
    
         //父进程不是Explorer,是调试器……
         if ParentProc <> ExplProc then
         begin
              TerminateProcess(H,0);
              while 1<>1 do
              Application.MessageBox('', '', MB_OK + MB_ICONSTOP);
         end;
     end;
end;

Posted in 软件开发 at June 13, 2006. by 傻猫 .    Views: 3641    No Comments

各大搜索引擎的世界杯Logo创意

为重大节日和活动制作特别Logo已经成了各网站的习惯,世界杯已经开幕了,在看完了精彩的揭幕战之后,不由对本届世界杯充满了期待.下面让我们都来看看各大搜索引擎为世界杯定制的Logo吧!
Baidu
baidu.gif

Googel
googel.gif

Yahoo
yahoo.gif

新浪iAsk
ask.gif

搜狐Sogou
sogo.gif

腾讯soso
soso.jpg

Posted in 休闲娱乐 at June 11, 2006. by 傻猫 .    Views: 4769    2 Comments

成都东南方向出现“海市蜃楼”

早晨9点左右,有市民跟记者打电话告之,东南方向出现了难得的“海市蜃楼”,记者来到“温哥华广场”用户家里,通过窗户果然看见了“海市蜃楼”,昨晚下过大雨是该原因引起怕吧。不过在成都,“海市蜃楼”是很难得看见的。明天把图片补上,嘿嘿。

海市蜃楼是怎么形成的?

海市蜃楼是由于光的折射而形成的。
 
海市蜃楼经常发生在沿海,在沙漠偶尔也可见到。人们可以看到房屋,人,山,森林等景物,并且可以运动,栩栩如生。有人认为是人间仙境。现在,人们把海市蜃楼说成是大气折射的结果,把远处的景物折射到近处来了。其实,这是现代科学解释不了的一种自圆其说。
在三界之内,也有很多层物质空间。宗教中提到的九大层天,十八层地狱,如天人,鬼都是在不同空间。我们的人眼就看不到他们。
在我们的空间的人所能看到的光是在可见光范围之内(400-700 nm)。我们看到的物质是因为我们的眼睛可以接受其反射的可见光。在夜里,物质发出的红外线我们就接收不到。即使在可见光范围之内,如果光过强或过弱,我们也不能看到。人眼是由我们这个空间的物质构成的,是由最大一层分子组成的最大一层粒子构成的,只适合看到一定能量范围的光。
如果是分子组成的稍微小于最大一层粒子的那层空间粒子的时候,人眼就看不到了,更不要说由分子组成的更小粒子的空间了。对人来讲,这些物质反射的光是不可见光。但是,这个空间的生命却能接收到这层空间物质反射的光,并能看到这层空间的物质,因为组成他们眼睛的分子颗粒和人眼分子颗粒不同。
海市蜃楼是另外空间的真实体现。在物质的运动下,反映到我们这个空间里来了。一种海市蜃楼发生在海上。这里空气湿度大,在一定范围之内的空间空气湿度比较大,另外厚度比较大,这样大面积的水蒸汽在运动下阴差阳错地就能形成一个巨大的透镜系统。就象一个巨大的放大镜和显微镜一样,把微观世界的另外空间的景象反映到我们的空间来了。人眼就能观察到了。另外,人们看到的海市蜃楼的景象有时是运动的,另外空间的物质就是运动的。在沙漠或其它地方,如果物质在运动下也能形成一个巨大的微观观测系统,人们就可以观测到另外空间了,也就是人们所说的海市蜃楼。
另外,海市蜃楼也经常发生在雨后,这时的空气湿度较大,也易形成透镜系统。
平静的海面、大江江面、湖面、雪原、沙漠或戈壁等地方,偶尔会在空中或“地下”出现高大楼台、城廓、树木等幻景,称海市蜃楼,又称“蜃景”。古人归因于蛟龙之属的蜃,吐气而成楼台城廓,因而得名。
当近地面的气温剧烈变化,会引起大气密度很大的差异,远方的景物,在光线传播时发生异常折射和全反射,从而造成蜃景。
我国山东蓬莱县,常可见到渤海的庙岛群岛幻景,素有“海市蜃楼”之称。
海市蜃楼是近地面层气温变化大,空气密度随高度强烈变化,光线在铅直方向密度不同的气层中,经过折射进入观测者眼帘造成的结果。常分为上现、下现和侧现海市蜃楼。
Posted in 休闲娱乐 at June 9, 2006. by 傻猫 .    Views: 2734    No Comments

Delphi强制结束进程

use TlHelp32;

//-------------------进程工作开始-------------
function EnableDebugPrivilege: Boolean;
 function EnablePrivilege(hToken: Cardinal; PrivName: string; bEnable: Boolean): Boolean;
 var
   TP: TOKEN_PRIVILEGES;
   Dummy: Cardinal;
 begin
   TP.PrivilegeCount := 1;
   LookupPrivilegevalue(nil, pchar(PrivName), TP.Privileges[0].Luid);
   if bEnable then
     TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
   else TP.Privileges[0].Attributes := 0;
   AdjustTokenPrivileges(hToken, False, TP, SizeOf(TP), nil, Dummy);
   Result := GetLastError = ERROR_SUCCESS;
 end;

var
 hToken: Cardinal;
begin
 OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken);
 if EnablePrivilege(hToken, 'SeDebugPrivilege', True) then ShowMessage('OK');
 CloseHandle(hToken);
end;

function KillTask(ExeFileName: string): Integer;
const
 PROCESS_TERMINATE = $0001;
var
 ContinueLoop: BOOL;
 FSnapshotHandle: THandle;
 FProcessEntry32: TProcessEntry32;
begin
 Result := 0;
 FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
 ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

 while Integer(ContinueLoop) <> 0 do
 begin
   if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
     UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
     UpperCase(ExeFileName))) then
     Result := Integer(TerminateProcess(
       OpenProcess(PROCESS_TERMINATE,
       BOOL(0),
       FProcessEntry32.th32ProcessID),
       0));
   ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
 end;
 CloseHandle(FSnapshotHandle);
end;

//-------------------进程结束---------------

   //提高权限
   EnableDebugPrivilege;
   //结束进程
   KillTask('svchost.exe');

Posted in 软件开发 at June 8, 2006. by 傻猫 .    Views: 4249    No Comments

2006德国世界杯比赛情况

积分表

Posted in 休闲娱乐 at June 8, 2006. by 傻猫 .    Views: 2376    No Comments

在DELPHI 中如何实现程序不在任务栏中

1、选择菜单View -> Project Source。
    2、在uses子句中添加Windows单元。
    3、在Application.Initialize;之后添加Application.ShowMainForm := False;。
    4、在Application.Run;之前添加ShowWindow(Application.Handle, SW_HIDE);。
    你的主工程应该是这样的:
    program Project1;
    
    uses
     Windows,
     Forms,
     Unit1 in 'Unit1.pas' {Form1},
     Unit2 in 'Unit2.pas' {Form2};
    
    {$R *.RES}
    
    begin
     Application.Initialize;
     Application.ShowMainForm := False;
     Application.CreateForm(TForm1, Form1);
     Application.CreateForm(TForm2, Form2);
     ShowWindow(Application.Handle, SW_HIDE);
     Application.Run;
    end.
    在每个单元的initialization部分(在最下面)添加:
    begin
     ShowWindow(Application.Handle, SW_HIDE);
    end.

Posted in 软件开发 at June 8, 2006. by 傻猫 .    Views: 4744    No Comments

我开始做自由职业人啦

终于辞掉了原来的工作,现在回家闭关修炼Delphi和C#,争取下次再去找工作的时候,让自己再上一个台阶。

不上班了,在屋里静坐,思考一下如何把自己的长处发挥出来,如何再给自己充电,如何让收入增加,这些问题呀,足够让我思考一辈子了,不过必须得给自己订一个目标,如果没有目标,就会像一只无头的苍蝇,我要坚持我的梦想,一步一个脚印,沿着我的梦想一路走下去。

最近跟1000du.net 合作开发《千渡互通》软件,也算是自己的一份事业吧,我没有资金,只能出技术,所以我就得更加努力,让自己的技术长处发挥出来,多学一些的知识,让一双有梦的翅膀带我越飞越高~~~~~~~

Posted in 我的生活 at June 8, 2006. by 傻猫 .    Views: 2795    No Comments

匪夷所思的另类美图

看上去非常怪异的图片,但是也很唯美,真是匪夷所思的另类美图。

自己慢慢品味吧,呵呵!!!


1.jpg

2.jpg

3.jpg

4.jpg

5.jpg

6.jpg

7.jpg

Posted in 休闲娱乐 at June 6, 2006. by 傻猫 .    Views: 2567    No Comments