Delphi 7 (Личный проект)

[АлександрDelphi]

Буду очень благодарен если вы помножите ))
Мне нужен скрипт(Поясняю)
Если моя программа открыта ,то та программа которая будет указана в коде не сможет открыться и будет close;
Да и еще я тут почитал на форуме про random(ное) название программы...
Вот Скрипт рандомного название формы..

PHP код:

function RandomPassword(PLen: Integer): string;
 var
   str: string;
begin
     Randomize;
   //string with all possible chars
  str    := 'abcdefghijklmnopqrstuvwxyz./@#$%:";*=-_';
   Result := '';
   repeat
     Result := Result + str[Random(Length(str)) + 1];
   until (Length(Result) = PLen)
 end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 begin
  Randomize;
  Form1.Caption := RandomPassword(10);
end;

end;
end. 


Да это хорошо...
Но мне надо что бы еще и exe файл был такой же как и название формы, и его нельзя было изменить )
Ps:Спасибо зарание программисты и тру кодеры__))

[Iron Monk]

С удовольствием "помножим", если поймем, что конкретно нужно)))

[АлександрDelphi]

Сообщение от Iron Monk

С удовольствием "помножим", если поймем, что конкретно нужно)))

1)Мне надо что бы у программы было такое же имя как и у формы.(Гугл не помогает мне нету там такого)
2) Что бы нельзя было изменять имя программы заданное в форме ..
3) Если моя программа видит определенный запущенный процесс она не открывается close;
Проще говоря от Disassembler (От декомпилирования проекта моего)

[Новатор07]

У формы есть название .Caption, сохраняй проект под таким же именем и они будут совпадать с .EXE шником. А насчет боязни декомпилирования .... не знаю таких декомпиляторов, чтобы выдали однозначный текст равный исходному тексту. При компиляции Паскаля в Ассемблер имена переменных теряются, сохраняются только их относительные адреса в "КУЧЕ".

[Iron Monk]

Сообщение от АлександрDelphi

1)Проще говоря от Disassembler (От декомпилирования проекта моего)

Если процесс запущен, можно снять дамп - отображение процесса в памяти. Придумайте что-нибудь ещё. Смысл такой защиты не понятен.

Что бы нельзя было изменять имя программы заданное в форме ..

Так в коде и забейте - если имя файла изменено - halt;

[АлександрDelphi]

Сообщение от Iron Monk

Так в коде и забейте - если имя файла изменено - halt;

Вот знать бы как, я не такой заюзанный программер _))

[Iron Monk]

procedure TForm1.FormCreate(Sender: TObject);
begin
     if ExtractFileName(Application.ExeName) <> 'Project1.exe' then Halt;
end;

end.

[АлександрDelphi]

Сообщение от Iron Monk

procedure TForm1.FormCreate(Sender: TObject);
begin
     if ExtractFileName(Application.ExeName) <> 'Project1.exe' then Halt;
end;

end.

Я попробовал, изменил название форма не открывается..
Меняешь на Project1 открывается ..
То есть после компилирования проекта я изменяю название программы и она не открывается ((

[Iron Monk]

Так, а что нужно-то было?

[kropotkina-alice]

Сообщение от Iron Monk

Так, а что нужно-то было?

Попробую перевести, как эти перлы поняла я:
Первое:

Мне нужен скрипт(Поясняю)
Если моя программа открыта ,то та программа которая будет указана в коде не сможет открыться и будет close;

По-моему, имеется ввиду проверка наличия запущенной чужой программы и ее принудительное закрытие.
Например:

SendMessage(FindWindow(nil, 'заголовок окна'), WM_CLOSE, 0, 0);

Организацию цикла проверки предлагаю возложить на ТС.

Второе: ответ уже дан, но ТС, на мой взгляд, малость не "въехал"...
Посему предложу небольшое видоизменение предложенного решения для пущей наглядности:

procedure TForm1.FormCreate(Sender: TObject);
begin
     if ExtractFileName(Application.ExeName) <> 'НАЗВАНИЕ_КОТОРОЕ_ Я_ ХОЧУ' then Halt;
end;

Для ТС - после компилирования измените название "Project1.exe" на "НАЗВАНИЕ_КОТОРОЕ_ Я_ ХОЧУ.exe".