Хук на комбинацию

[W0LF]

Такая проблема..
Есть программа, но она имеет только иконку в тулбаре и PopupMenu, нада что бы при скрытии иконки из меню можно было ее назад показать какойто комбинацией клавишь...

Слышал про Api RegisterHotKey и UnRegisterHotKey, но не знаю как их использовать

[Stilet]

Ничего не понял...

[Lime]

http://programmersforum.ru/showthread.php?t=57403
Приводил пример

[W0LF]

Lime, спс, все работает))

[W0LF]

У мен постал новый вопрос (не потеме канечно, но всеже)...
Возможно ли написать текст в 2 edit'а и сохранить в самом теле exe? Без создания отдельных файлов, записей в реестре и т.д.

[Stilet]

Посмотри в хелпе описание функции UpdateResource

[W0LF]

Посмотрел, но мне это не чего не дало, так как я новичек... а тут... вообщем непонял там нечего. Мне надо сохранить текст из 2 едитов. Если не сложно можно пример?

[Stilet]

Тут видишь ли какая штука. нельзя писать в запущенный файл, посему нужно сделать другой файл - хранилище ресурсов, например DLL.
Вот статья к раздумьям:

http://vsokovikov.narod.ru/New_MSDN_API/Resourse/updating_resources.htm

Ну вот скажем так можно менят ресурс другого файла:
Учитывая что ресурсы описаны так:

STRINGTABLE
{
 1, "&Yes"
 2, "&No"
 17, "&Si"
 18, "&No"
 33, "&Ja"
 34, "&Nej"
}

var pc:pchar;h:THandle;
begin
 pc:='123';
 h:=BeginUpdateResource('project1.exe',false);
 if h=NULL then RaiseLastWin32Error;
 if UpdateResource(h,RT_STRING,'1',(LANG_RUSSIAN),pc,length(pc)) then RaiseLastWin32Error;
 EndUpdateResource(h,false);
end;

А вот тот файл в котором ресурс изменен может его читать:

var pc:array[1..20] of char;h:THandle;
begin
 if LoadString(HInstance,1,@pc,20)<>0 then
 caption:=StrPas(@pc);
end;

Но я бы на твоем месте в DLL пихал строки, или еще проще в INI файлы.

[W0LF]

да уж..)) действительно луче ini и непариться, просто иногда видел файлы де данные сохраняються не вне, а внутри приложения

[Johnson]

как вариант - копирование файла программы с временным именем, его перезапись с нужными ресурсами, переименование программы, переименование копии...
а при пуске заново - проерка, есть ли уже копия, если есть - удалять...
пример: приложение называется test.exe при необходимости перезаписать такие действия:
копировать test.exe в test1.exe
перезаписать test1.exe с нужными данными
переименовать test.exe в test2.exe
переименовать test1.exe в test.exe

а при запуске - проверять, есть ли файл с именем test2.exe, если есть - удалять

знаю, что ректально, но другого способа не нашел пока... xD

ЗЫ: вот реальный пример: автообновление в проге... прога скачивает свой новый исполняемый файл (CH.ex) и исполняет код:

tmp:=ExtractFilePath(Application.ExeName)+'CH.ex';
//SetLength(tmp,Length(tmp)-1);
if FileExists(tmp) and (CHmain.UPDChk.Items.Count=0) and SZCRC32Test and (IntToStr(SZCRC32File('.\CH.ex')) = UPDini.ReadString('FileList','CH.exe','Error2')) 
then begin
CHmain.Memo2.Clear;
CHmain.Memo2.Lines.Add('Сейчас поизойдет обновление клиента...');
RenameFile(Application.ExeName,'temp.exe');
RenameFile('CH.ex','CH.exe');
WinExec('CH.exe -delold',SW_SHOW);
Application.Terminate;
end;