[Bargest]

Во, точно! я ж говорил shellчетотам Мне кстати тоже пригодится.

[Gr_Scream]

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

Код:

uses
  ShellAPI;

ShellExecute(Form1.Handle, 'open', 'name.lnk', nil, nil, SW_SHOW);

А как запустить что-нибудь через переменную?
Берется из .ini

[ryderx34]

В переменной будет имя программы/ярлыка? Вставь переменную туда где 'name.lnk'.

[KOOL]

Скорее всего, переменная будет типа string, так что надо еще обернуть ее в PChar. Ну и ставить Form1.Handle первым параметром совсем не обязательно, особенно когда запускаемый процесс не должен прерывать выполнение программы (если в нем ошибка вылетит и т.п.)

[Gr_Scream]

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

Скорее всего, переменная будет типа string, так что надо еще обернуть ее в PChar. Ну и ставить Form1.Handle первым параметром совсем не обязательно, особенно когда запускаемый процесс не должен прерывать выполнение программы (если в нем ошибка вылетит и т.п.)

Спасибо.. То что нужно

А как сделать что бы имя подключаемой .ini совпадало с именем исполняемого .EXE??
допустим - 1.exe значит должен быть 1.ini
book.exe ----> book.ini

[ChinYan]

Код:

IniName:=ChangeFileExt(Application.exename,'.ini')

[Gr_Scream]

Я использую Код:
AppIni:=TIniFile.Create(Application.exename+'.ini' );

подключается "Project1.exe.ini"
Как сделать что бы было подключено INI без .EXE???

[v1s2222]

Код:

AppIni:=TIniFile.Create(ChangeFileExt(Application.exename, '.ini'));

[Gr_Scream]

Всем Спасибо (-=

А что можно сделать с проверкой существует ли физически файл по указанному пути в ini???

[deltas]

Код:

if FileExists(fileName) then ...

unit SysUtils

function FileExists ( const FileName : string ) : Boolean;
Возвращает True если указанный файл существует

[Gr_Scream]

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

Код:

if FileExists(fileName) then ...

unit SysUtils

function FileExists ( const FileName : string ) : Boolean;
Возвращает True если указанный файл существует

Уже нашел и реализовал =-)

[Gr_Scream]

Ну в принципе все сделал =-)
Может чего-то и не хватает - буду доделывать по ходу.
Рабочие компы с начала недели с ней работают =-)

[deltas]

А че за програмка такая? Если не секрет конечно...

[Gr_Scream]

Конечно можно =-)
hitfile.net/FBiB -- ссылочка.

Вот только я одного не учел --- когда рабочий стол убрал - пропали часы =-) немного не удобно для того кто работает на пк.

Вот думаю: как сделать часы [чч:мм] с настройками - вида: установить перерывы (всплывающее сообщение на экран) и прозрачность самих часов. Ну в принципе и все )))

Может кто нибудь видел что нибудь подобное? или просто сможет чем помочь?

[v1s2222]

Заходи почаще в гугл...
http://www.youtube.com/watch?v=8z620BrpZY4
http://programmersforum.ru/showthread.php?t=44503

А вообще часы вывести типа часы:минуты можно так: TimeToStr(Now);
Прозрачность формы же: AlphaBlend := True; AlphaBlendValue := 150;