Lợi dụng API hàm sổ khai phát DELPHI trình tự

Windows đích API hàm sổ thị ứng dụng trình tự khai phát đích hữu lực phụ trợ công cụ, đối tha môn đích kháp đương sử dụng, khả đại đại tăng cường hòa cải tiến ứng dụng trình tự dữ hệ thống đả giao đạo đích năng lực, sử tự kỷ đích trình tự chân chính cụ hữu để tằng thao tác công năng. Tác vi RAD công cụ đích cơ sở đại biểu, BORLANDDELPHI tuy nhiên bổn thân dã dĩ đề cung liễu đại lượng cường hữu lực đích hàm sổ hòa quá trình, đãn tại mỗ ta tràng hợp, yếu cầu hạ, sử dụng API hàm sổ tương sử nhĩ đích trình tự tiến nhất bộ đắc đáo cải thiện, tịnh khả thác khoan phạm vi, giản hóa trình tự đại mã.
Tại DELPHI trung dẫn dụng API hàm sổ, hòa sử dụng DELPHI bổn thân đích hàm sổ, quá trình kỉ hồ một hữu khu biệt. Tại DELPHI mục lục hạ hữu nhất cá WINDOWS.PAS văn kiện, phàm thị tại kỳ trung thanh minh quá đích API hàm sổ, đô khả tại biên trình thời trực tiếp dẫn dụng nhi vô tu lánh gia thuyết minh. Chỉ thị yếu chú ý, tiêu chuẩn API hàm sổ đô thị dĩ C hoặc C++ vi tiêu chuẩn tiến hành sổ cư kết cấu định nghĩa đích, nhi DELPHI sử dụng đích thị OBJECTPASCAL ngữ ngôn, nhân thử tại dẫn dụng thời ứng đặc biệt chú ý tham sổ hòa hàm sổ bổn thân đích sổ cư loại hình. Như nhất cá API hàm sổ nhược vi bố nhĩ trị, tắc tại DELPHI trung tựu ứng dĩ TRUE, FALSE nhi bất năng dụng 0, phi 0 lai đối phản hồi trị tiến hành phán đoạn.

Hạ diện dĩ tam cá tiểu lệ tử lai thuyết minh API hàm sổ tại DELPHI trung đích sử dụng.
Nhất, bổn địa hóa tiêu tức khuông
Tưởng nhượng tự kỷ đích tiêu tức khuông hiển kỳ "OK", "Cancel" hoàn thị "Xác định", "Thủ tiêu"? Như quả tưởng sử trình tự triệt để bổn địa hóa, na ma hoàn thị phóng khí MessageDlg hòa ShowMessage ba -- đô quái DELPHI một hữu. Dụng MessageBox giá cá API hàm sổ chiếu dạng phương tiện.

Sử dụngNgữ phápVi:
MessageBox(HWND:hWND,lpMessage:
PChar,lpCaption:PChar,uType:Cardinal);
Các tham sổ trung, đệ nhất cá vi tiêu tức khuông sở chúc đích song khẩu cú bính, đệ nhị cá vi yếu hiển kỳ đích tiêu tức, đệ tam cá vi tiêu tức khuông đích tiêu đề, đệ tứ cá vi tiêu tức khuông đích loại hình, hàm sổ phản hồi trị vi chỉnh hình sổ.

Vi sử tiêu tức khuông hữu sở quy chúc, đệ nhất cá tham sổ thiết vi đương tiền song khẩu, hoạch thủ kỳ cú bính đích phương pháp thị sử dụng lánh nhất cá API hàm sổ: GetActiveWindows(), thả bất nhu nhậm hà tham sổ.

Lệ 1 ) Messagebox kỳ lệ:
1． chủ yếu cấu kiện cập chúc tính đích thiết trí:
form1:caption:messagebox kỳ lệ
bordericons:biMaximize hòa biHelp thiết vi false
panel1: caption: Văn tự bộ phân Alignment:taLeftJustify
panel2: caption: Đồ tượng bộ phân Alignment:taLeftJustify
button1~button12:caption phân biệt vi: Xác định, xác định thủ tiêu,
Xác định bang trợ thủ tiêu, thị phủ, trọng thí thủ tiêu, chung chỉ trọng thí thủ tiêu,
Tín tức, đề vấn, hệ thống đồ tiêu, cảnh cáo, đình chỉ, tổ hợp phương thức
bitbtn1: kind:bkClose
Như đồ nhất sở kỳ:
2． sự kiện thuyết minh: ( tường kiến nguyên trình tự, hạ cận cử lưỡng lệ )
{ văn tự bộ phân dĩ button2click() vi lệ }
procedureTForm1.Button2Click(Sender:TObject);
begin
casemessagebox(getactivewindow(),
Hiển kỳ xác định, thủ tiêu khuông, lệ tử,
okcancel)
ofidok:messagebox(getactivewindow(),
Nâm án hạ đích thị "Xác định" án nữu,
Kết quả,mb_ok);
idcancel:messagebox(getactivewindow(),
Nâm án hạ đích thị "Thủ tiêu" án nữu,
Kết quả,mb_ok);
end;
end;
{ đồ tượng bộ phân dĩ button8click() vi lệ }
procedureTForm1.Button8Click(Sender:TObject);
begin
messagebox(getactivewindow(), hiển kỳ cảnh cáo đồ tiêu, lệ tử,
mb_iconwarning)
end;
Nhị, cải tiến Windows9x đích hệ thống đăng lục đích an toàn tính:
Win9x đích "Dụng hộ đăng lục" song khẩu khả vị lai giả bất cự, mật mã bất đối chiếu dạng khả dĩ "Đăng đường nhập thất", hệ thống vi dụng hộ bảo lưu đích cá nhân thiết trí đẳng tín tức dã tựu hào vô bảo mật tính khả ngôn, thông quá tra khán Profiles mục lục, khả khinh tùng địa tương kỳ phục chế hoặc san trừ. Tuy nhiên Win95, Win98 đích ứng dụng đối tượng thị cá nhân dụng hộ, đãn tại mỗ ta tràng hợp hạ, hoàn thị nhượng đăng lục song khẩu khởi điểm tác dụng đích hảo.
Yếu sử hệ thống đăng lục cụ hữu an toàn tính, đối phi pháp sử dụng giả chân chính năng cự chi môn ngoại, bất phương dụng lưỡng cá API hàm sổ lai thật hiện thử mục đích.
Lệ nhị ) hệ thống đăng lục kiểm tra
1． chủ yếu cấu kiện cập chúc tính thiết trí:
form1:caption:CheckUser
height, width: Thiết vi tối tiểu trị
2． sự kiện thuyết minh:
// định nghĩa biến lượng
private
size:cardinal;
name:pchar;
entry:boolean;{Privatedeclarations}

procedureTCheckUser.FormShow(Sender:TObject);
begin
size:=64;
name:=StrAlloc(64);
{ kiểm tra dụng hộ danh, phán đoạn thị án liễu “Thủ tiêu” án nữu hoàn thị kiện nhập liễu tân dụng hộ danh }
ifGetUsername(name,size)
thenifname=’wj’//‘wj’ vi bút giả cơ khí đích đăng lục dụng hộ danh
{ tại thử, nhược duẫn hứa đích hợp pháp sử dụng giả bất chỉ nhất cá, hoàn khả lợi dụng quan hệ vận toán chỉ định
Nhất cá dĩ thượng đích dụng hộ tiến nhập.
Như:if(name=’computer1’)or(name=’computer2’)
}
thenentry:=true;
close;
end;
procedureTCheckUser.FormClose
(Sender:TObject;varAction:TCloseAction);
begin
ifnotentry
thenExitWindowsEx(EWX_REBOOT,32);
// nhược dụng hộ danh bất đối, tắc trọng tân khải động Windows
end;

procedureTCheckUser.FormCreate(Sender:TObject);
begin
entry:=false;// thiết định sơ thủy trị
end;

Biên dịch hoàn tất hậu, sinh thành EXE văn kiện, nhiên hậu đả khai chú sách biểu —— sử dụng Regedit, trảo đáo HKEY_LOCAL_MACHINE\SOFTWARE\Micr\Windows\CurrentVersion\RUN hành, thiêm gia kiện trị danh ( như: CheckUser ) cập kiện trị ( EXE văn kiện sở tại đích hoàn chỉnh lộ kính ). Như đồ sở kỳ:
Hảo liễu, trọng tân khải động nhất thứ, một hữu chính xác đích mật mã hoàn năng tiến nhập mạ?
Tam ． một hữu “Môi thểBá phóng khí”Đích thanh âm bá phóng
Nhật tiền tố liễu nhất cáTiểu trình tự,Tưởng tại “Quan vu” song khẩu gia thượng nhất đoạn thanh âm thuyết minh, đãn tiểu tiểu đích “Quan vu” FORM phóng thượng nhất cá trường trường đích, Visible chúc tính nhu vi False đích MediaPlayer cấu kiện thật tại biệt nữu. Đông tra tây trảo chi hạ, hoàn thị kháo API hàm sổ SNDPLAYSOUND ( ) giải quyết liễu vấn đề —— tòng nhi bãi thoát liễu MediaPlayer đích “Thúc phược”. Lệ tam ) sử dụng API hàm sổ khống chế thanh âm văn kiện đích bá phóng: ( bộ phân đại mã )
procedureTaboutBox.FormShow(Sender:TObject);
begin
// bá phóng đương tiền mục lục hạ đích welcome.wav văn kiện
sndplaysound(‘welcome.wav’,snd_async)
end;

procedureTAboutBox.FormClick(Sender:TObject);
begin
// đình chỉ bá phóng
sndplaysound(‘’,snd_async);
end;

Biệt vong liễu, tại USES tử cú trung gia nhập mmsystem đan nguyên. Như quả chỉ nhu yếu bá phóng thanh âm, na ma nhất điều API hàm sổ tựu năng thật hiện công năng đích hoàn dụng đắc trứ MediaPlayer lai đại động càn qua mạ?
Tổng chi, sử dụng DELPHI đích “Thông minh đích trình tự viên” môn ứng cai sung phân phát huy DELPHI điều dụng API hàm sổ phương tiện khoái tiệp đích ưu thế, hảo hảo lợi dụng API hàm sổ dĩ canh hảo địa vi tự kỷ trình tự phục vụ.