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.
42 lines
1.0 KiB
Plaintext
42 lines
1.0 KiB
Plaintext
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},
|
|
frx2DBarcode in 'frx2DBarcode.pas',
|
|
frx2DBarcodeRTTI in 'frx2DBarcodeRTTI.pas',
|
|
uZintBarcode in 'uZintBarcode.pas',
|
|
uZintInterface in 'uZintInterface.pas';
|
|
|
|
{$R *.res}
|
|
|
|
var
|
|
MutexHandle: THandle;
|
|
begin
|
|
{
|
|
MutexHandle := CreateMutex(nil, TRUE, '东胜打印管理系统');
|
|
if MutexHandle <> 0 then
|
|
begin
|
|
if GetLastError = ERROR_ALREADY_EXISTS then
|
|
begin
|
|
// MessageBox(0, '东胜打印管理系统已经运行,请关闭再运行...','警告：', mb_IconHand);
|
|
// CloseHandle(MutexHandle);
|
|
if not ASSIGNED(frmPrint) then
|
|
Application.CreateForm(TfrmPrint, frmPrint);
|
|
Application.BringToFront;
|
|
// frmPrint.BringToFront;
|
|
Halt;
|
|
end;
|
|
end;
|
|
}
|
|
Application.Initialize;
|
|
Application.Title := '东胜打印管理系统';
|
|
Application.CreateForm(TfrmPrint, frmPrint);
|
|
Application.Run;
|
|
|
|
end.
|