Topic: нужна помощь

у меня два вопроса можете пример написать

1. Вопрос возможно при запуске проекта, открывается сам проект, и следом открывается один раз другая программа c exe или bat формата  и больше что бы при следующим запуске не открывалась программа

2. есть проект с фото мне нужно на фото в определенное место наложить свой текст  в разных местах и разный текст и сохранить его с этим текстом

Re: нужна помощь

1. Вы имеете ввиду при открывании проекта в среде My Visual Database? Или при запуске проекта самостоятельно?


2. К сожалению наложить текст непосредственно на фото нет возможности, разве что расположить поверх фото компонет "Надпись"

Dmitry.

Re: нужна помощь

1. при открывании проекта My Visual Database потом открывается мой exe 1 раз и все

2.  поверх фото компонет "Надпись" как так можно сделать ?

Re: нужна помощь

1. К сожалению такой возможности непредусмотрено. Это можно было бы реализовать только скриптом  при запуске проекта.


2. Просто поместите мышкой компонент Надпись (Label) поверх компонента с фотографией.

Dmitry.

Re: нужна помощь

1.  скриптом  при запуске проекта можете пример дать скрипта ?
2. спасибо

Re: нужна помощь

?

Re: нужна помощь

CONST
   APP_NAME = 'MyAppName'; //your unique application name, used as an identifier, to store information in the system registry


procedure CheckFirstTime;
var
   reg: TRegistry;
begin
     reg := TRegistry.Create;
     reg.Access := KEY_ALL_ACCESS;
     reg.RootKey := HKEY_CURRENT_USER;

     if reg.OpenKey('software\' + APP_NAME, true) then
     begin
          if not reg.ValueExists('Once') then OpenFile('pbrush.exe'); // start external program
          Reg.WriteInteger('Once', 1);
          reg.CloseKey;
     end;

     reg.Free;
end;


begin
    CheckFirstTime;
end.
Dmitry.

Re: нужна помощь

спасибо

Re: нужна помощь

еще вопрос у меня по этом пути не открывается файл C:\Users\%UserName%\Desktop\phone\Images\bat.exe а мне нужен полный путь к файлу как можно еще прописать ????

Re: нужна помощь

6katran6 wrote:

еще вопрос у меня по этом пути не открывается файл C:\Users\%UserName%\Desktop\phone\Images\bat.exe а мне нужен полный путь к файлу как можно еще прописать ????

попробуйте так

OpenFile('C:\Users\'+GetUserName+'\Desktop\phone\Images\bat.exe');
Dmitry.