запуск програмы

[ZhekON]

сделал прогу и нужно чтобы писало сообщение когда заприщается запуск копии:

program MusON;

uses
only_one,
Forms,
Dialogs,
inifiles,
SysUtils,
Main in 'Main.pas' {Form1},
Unit2 in 'Unit2.pas' {Creators},
Playlist_ in 'Playlist_.pas' {PlayList},
reg in 'reg.pas' {Registration},
SysInfoS in 'SysInfoS.pas' {Infos},
Shos in 'Shos.pas' {MaxVideo},
Option in 'Option.pas' {OPTIONS},
file_options in 'file_options.pas' {File_option};

{$R *.res}
const
UniqueString = 'MyProgramMutex';
{Может быть любое слово. Желательно латинскими буквами.}

var f:tinifile;
d:boolean;
begin
if not init_mutex(UniqueString) then
begin
f:=f.Create(extractfilepath(paramst r(0))+'ControlINI\Options.ini');
d:=f.ReadBool('Run','Copy',false); //тут читаем позволяется ли запускать копию
if d=false then
begin
showmessage(' ') //вот тут это сообщение..
exit; {Выходим до инициализации, если мьютекс уже есть}
end;
f.Free;
end;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TOPTIONS, OPTIONS);
.....
end.

Дело в том что программа не хочет выдавать сообщение а выбивает ошыбку с какимто адресом в памяти..
Что подскажыте? нужно чем побыстрее...

[Wolfheart]

Возможно, ошибка в процедуре init_mutex ? Она не описана здесь, потому не могу сказать наверняка.

[ZhekON]

вот модуль который использует эта процэдура, но писал не я ... такчто помогите розобратся если в нём

[ZhekON]

вот модуль который использует эта процэдура, но писал не я ... такчто помогите розобратся с ним

unit Only_One;

interface

function Init_Mutex(mid: string): boolean;

implementation

uses Windows;

var
mut: thandle;

function mut_id(s: string): string;
var
f: integer;
begin
result := s;
for f := 1 to length(s) do
if result[f] = '\' then
result[f] := '_';
end;

function Init_Mutex(mid: string): boolean;
begin
Mut := CreateMutex(nil, false, pchar(mut_id(mid)));
Result := not ((Mut = 0) or (GetLastError = ERROR_ALREADY_EXISTS));
end;

initialization
mut := 0;
finalization
if mut <> 0 then
CloseHandle(mut);
end.

[rpy3uH]

запрет на запуск можно реализовать и без файлов!

function Init_Mutex(mid: string): boolean;
begin
Mut := CreateMutex(nil, false, pchar(mut_id(mid)));
Result := not ((Mut = 0) or (GetLastError = ERROR_ALREADY_EXISTS));
end;

если функция возвратила false, то приложение уже запущено и надо выйти

[ZhekON]

Сообщение от rpy3uH

запрет на запуск можно реализовать и без файлов!

function Init_Mutex(mid: string): boolean;
begin
Mut := CreateMutex(nil, false, pchar(mut_id(mid)));
Result := not ((Mut = 0) or (GetLastError = ERROR_ALREADY_EXISTS));
end;

если функция возвратила false, то приложение уже запущено и надо выйти

вобщем мне нужно чтобы допускалось запускание нескольких копий програмы и наоборот, и это должно читатся с ini-файла... вот и всё...
ПЛЛИИИЗ напишы то что мне нужно использовать...ато писал не я а розбераться времени нету... екзамены....

[ZhekON]

Сообщение от rpy3uH
запрет на запуск можно реализовать и без файлов!

мне нужно чтобы програма обращалась к файлу, но почему не хочет работать програма с чтением строк из ини-файла???

ВОБЩЕМ, КАК ОРГАНИЗОВАТЬ ЧТЕНИЕ ИЗ ИНИ-ФАЙЛА ЧТОБЫ НЕ ВЫБИВАЛО ОШЫБОК???
Но если это не в этом проблема тогда я незнаю в чём...
у кого получится пожалуста пришлите как зделали, или помогите розобратся с этим

[JTG]

Объект TIniFile, который ты только объявил еще не создан, и уж тем более он не может создать сам себя

f:=f.Create(extractfilepath(paramst r(0))+'ControlI NI\Options.ini');

должно быть
f:=TIniFile.Create(extractfilepath( paramstr(0))+'ControlI NI\Options.ini');

Может есть ещё ошибки, лень разбираться =)
--
И я тоже не доганяю, зачем мудрить с файлами?

-- упд 2
Если уж пользуешься TApplication то

...extractfilepath(paramstr(0))...

можно заменить на extractfilepath(application.exename ) (так красивее )

-- упд 3
Application.CreateForm(TOPTIONS, OPTIONS); явно не главная форма, и все формы, что идут за ней, лучше создавать и уничтожать динамически, когда они будут нужны, программа будет намного меньше памяти кушать

[rpy3uH]

зачем мучиться с ini файлами,используй простой файл и держи в нём только одну строку в которой указано можно ли запускаться

[JTG]

Ну про ини-файлы, думаю, уже всё ясно

зачем мучиться с ini файлами,используй простой файл и держи в нём только одну строку в которой указано можно ли запускаться

НЕЛЬЗЯ выполнять проверку, запущена ли уже программа, при помощи временных файлов вообще: что будет, если программа некоррекно завершится, комп перезагрузится, и т.д. и на диске останется файл - при следующем запуске программа будет думать, что уже запущенна.