本站创建于2006年,博主为Delphi老码农,暗黑忠实粉丝,主要用于学习经验分享
该日志由 samool 发表于 2006-06-09 12:56:02
早晨9点左右,有市民跟记者打电话告之,东南方向出现了难得的“海市蜃楼”,记者来到“温哥华广场”用户家里,通过窗户果然看见了“海市蜃楼”,昨晚下过大雨是该原因引起怕吧。不过在成都,“海市蜃楼”是很难得看见的。明天把图片补上,嘿嘿。
海市蜃楼是怎么形成的?
该日志标签: 没有
该日志由 samool 发表于 2006-06-08 22:55:37
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');
该日志标签: 进程
该日志由 samool 发表于 2006-06-08 18:17:00
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.
该日志由 samool 发表于 2006-06-08 12:57:37
终于辞掉了原来的工作,现在回家闭关修炼Delphi和C#,争取下次再去找工作的时候,让自己再上一个台阶。
不上班了,在屋里静坐,思考一下如何把自己的长处发挥出来,如何再给自己充电,如何让收入增加,这些问题呀,足够让我思考一辈子了,不过必须得给自己订一个目标,如果没有目标,就会像一只无头的苍蝇,我要坚持我的梦想,一步一个脚印,沿着我的梦想一路走下去。
最近跟1000du.net 合作开发《千渡互通》软件,也算是自己的一份事业吧,我没有资金,只能出技术,所以我就得更加努力,让自己的技术长处发挥出来,多学一些的知识,让一双有梦的翅膀带我越飞越高~~~~~~~
该日志标签: 没有
该日志由 samool 发表于 2006-06-05 17:02:47
世界上最远的距离不是从中国到美国的距离,而是电信到网通的距离!千渡互通-让电信网通的速度飞起来!
这次发布的是千渡第一个内测版本,增加了许多新的功能,版本号正式改为 1.0
(安装程序和升级程序是偶写的,呵呵,请大家多多支持一下!!)
该日志标签: 没有
该日志由 samool 发表于 2006-06-05 09:57:07
用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;
该日志标签: 没有