You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
|
program PPrint;
|
|
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
|
Forms,
|
|
|
|
|
|
windows,
|
|
|
|
|
|
Uprint in 'Uprint.pas' {frmPrint},
|
|
|
|
|
|
u_sys_progress in 'u_sys_progress.pas' {frm_sys_progress},
|
|
|
|
|
|
my_sys_function in 'my_sys_function.pas',
|
|
|
|
|
|
U_SendMail in 'U_SendMail.pas' {frmSendMail};
|
|
|
|
|
|
|
|
|
|
|
|
{$R *.res}
|
|
|
|
|
|
|
|
|
|
|
|
var
|
|
|
|
|
|
MutexHandle: THandle;
|
|
|
|
|
|
begin
|
|
|
|
|
|
MutexHandle := CreateMutex(nil, TRUE, '<27><>ʤ<EFBFBD><CAA4>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>ϵͳ');
|
|
|
|
|
|
if MutexHandle <> 0 then
|
|
|
|
|
|
begin
|
|
|
|
|
|
if GetLastError = ERROR_ALREADY_EXISTS then
|
|
|
|
|
|
begin
|
|
|
|
|
|
MessageBox(0, '<27><>ʤ<EFBFBD><CAA4>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>ϵͳ<CFB5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>ر<EFBFBD><D8B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>...','<27><><EFBFBD>棺', mb_IconHand);
|
|
|
|
|
|
CloseHandle(MutexHandle);
|
|
|
|
|
|
Halt;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
Application.Initialize;
|
|
|
|
|
|
Application.Initialize;
|
|
|
|
|
|
Application.Title := '<27><>ʤ<EFBFBD><CAA4>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>ϵͳ';
|
|
|
|
|
|
Application.CreateForm(TfrmPrint, frmPrint);
|
|
|
|
|
|
Application.CreateForm(TfrmSendMail, frmSendMail);
|
|
|
|
|
|
Application.Run;
|
|
|
|
|
|
end.
|
