傻猫网络日志 Samool's blog - 二十年老博客

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

海市蜃楼是怎么形成的？

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');

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.

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

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

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

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

自己慢慢品味吧，呵呵！！！

世界上最远的距离不是从中国到美国的距离，而是电信到网通的距离！千渡互通-让电信网通的速度飞起来！

这次发布的是千渡第一个内测版本，增加了许多新的功能，版本号正式改为 1.0

（安装程序和升级程序是偶写的，呵呵，请大家多多支持一下！！）

点这里下载

用HTTP从网站下载文件

方法一，用IdHttp：
procedure TForm1.Button1Click(Sender: TObject);
var
fs: TFileStream;
begin
fs := TFileStream.Create('c:\aaa.htm', fmCreate);
IdHTTP1.Get('http://www.abc.com/aaa.shtml', fs);
fs.Free;
end;

方法二，用UrlMon：
uses  
UrlMon

function DownloadFile(Source, Dest: string): Boolean;
begin
try
  Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
except
  Result := False;
end;
end;

 
procedure TForm1.Button1Click(Sender: TObject);
begin
if DownloadFile(edit1.Text, edit2.Text) then
  ShowMessage('下载成功')
else ShowMessage('下载失败');
end;

夏天来了，你最喜欢那种睡势呢？

2005年超女火了一把，现在居然有游戏商也看中了，做了一个《超女世界》的休闲游戏，卡通照片还不错，比现实中的要好看多了。今年的超女全TM是人妖，全学去年的李玉米和周BB，1个2个装出一副中性人的样，特别是李玉米的那个亲戚，长的不怎么样，歌又唱的差，长沙落选了，成都又来，真不要脸。还有长沙说谎的那个叫历娜的，RP值那么低，还想当偶想，我呸，超女越来越像人妖比赛了，准确地说是太监比赛，不男不女的超女，老子只要揣她TM两脚。