01.10.2007, 17:36
|
|
Активный
|
|
Регистрация: 05.12.2006
Адрес: где-то там...
Сообщения: 321
Репутация: 35
|
|
Зайди в Project->>View Source и пропиши там:
Код:
в uses
Forms,
Windows,
SysUtils;
...
const
MemFileSize = 1024;
MemFileName = 'Имя твоей проги полностью';
var
MemHnd : HWND;
{$R *.RES}
begin
MemHnd := CreateFileMapping(HWND($FFFFFFFF), nil, PAGE_READWRITE, 0, MemFileSize, MemFileName);
if GetLastError <> ERROR_ALREADY_EXISTS
then begin
Application.Initialize
end
else begin
Application.MessageBox('Данная программа уже выполняется.', 'Ошибка');
halt;
end;
__________________
Программирование - это искусство и наш смысл жизни.
|