shopxml

Все-таки как странно проходят продажи у ShopXML. Волнообразно все. Причины не нашел, сколько ни пытался. Трафик один и тот же, кейворды одни и те же, а покупки то в день по 2 штуки, то неделя или две тишины. Хммм...

OFF
Медведев в Твиттере теперь. Какой современный, охуеть =) http://twitter.com/KremlinRussia

OFF2
друг попросил поставить ссылку. бесплатная программа мониторинг сотрудников

Inno Setup: Как закрыть программу перед ее удалением

Гуглить пришлось достаточно долго) Привожу скрипт, может кому пригодится еще кроме меня. Да и сам не забуду)
Код вставляем в начало, сразу после объявления переменных.

[Code]
const
LEN_EXEFILE = 260;
type
PROCESSENTRY32 = record
dwSize: cardinal;
cntUsage: cardinal;
th32ProcessID: cardinal;
th32DefaultHeapID: cardinal;
th32ModuleID: cardinal;
cntThreads: cardinal;
th32ParentProcessID: cardinal;
pcPriClassBase: cardinal;
dwFlags: cardinal;
szExeFile: Array[0..LEN_EXEFILE] Of Char;
end;
HANDLE = cardinal;
const
TH32CS_SNAPHEAPLIST = $1;
TH32CS_SNAPPROCESS = $2;
TH32CS_SNAPTHREAD = $4;
TH32CS_SNAPMODULE = $8;

function Process32First(
hSnapshot: HANDLE;
var lpProcess: PROCESSENTRY32): Integer;
external 'Process32First@kernel32.dll stdcall';

function Process32Next(
hSnapshot: HANDLE;
var lpProcess: PROCESSENTRY32): Integer;
external 'Process32Next@kernel32.dll stdcall';

function CloseHandle(hSnapshot: HANDLE): Integer;
external 'CloseHandle@kernel32.dll stdcall';

function CreateToolhelp32Snapshot(
lFlags: cardinal;
lProcessID: cardinal): HANDLE;
external 'CreateToolhelp32Snapshot@kernel32.dll stdcall';

function ProcessRunning(sProcessName : String): Boolean;
var
hSnapshot: HANDLE;
PInfo: PROCESSENTRY32;
nResult: Integer;
bRunning: Boolean;
sTemp: String;
i: Integer;

begin

hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

If hSnapshot = -1 Then
begin
Result := False;
Msgbox('Failed to get snapshot of running processes.',
mbError, MB_OK);
Exit;
end;

bRunning := False;
PInfo.dwSize := SizeOf(PInfo);
nResult := Process32First(hSnapshot, PInfo);

while (nResult <> 0) and (not bRunning) do
begin
i := 0;
sTemp := '';
while (i < LEN_EXEFILE) and (PInfo.szExeFile[i] > Chr(0)) do
begin
sTemp := sTemp + PInfo.szExeFile[i];
i := i + 1;
end;

if CompareText(sTemp, sProcessName) = 0 then

begin
bRunning := True;
end;

PInfo.dwSize := SizeOf(PInfo);
nResult := Process32Next(hSnapshot, PInfo)
end;

CloseHandle(hSnapshot);
Result := bRunning;

end;

function InitializeUninstall(): Boolean;
var
nMsgBoxResult: Integer;

begin
Result := True;
nMsgBoxResult := IDOK;

while ProcessRunning('MY PROGRAM.EXE') and
(nMsgBoxResult <> IDCANCEL) do
begin
nMsgBoxResult := Msgbox('MY PROGRAM.EXE is running. Please close application to continue.',
mbError, MB_RETRYCANCEL)
end;

if nMsgBoxResult = IDCANCEL then

begin
Result := False;
end;

end;

Зарегистрировался в Блогуне)

Так, ради интереса. И тут же ухватил заказ на обзор =Р
обещаю, что это первый и последний платный пост в этом блоге) кстати может даже и правда кому пригодится сие:

UltraHost.Me - это бесплатный сервис, предоставляющий услуги хостинга файлов. Минимум рекламы. Высокая скорость скачивания. Высокий аптайм.

База русских RSS каталогов

Возникла необходимость просабмитить RSS-ленту. Собрал базу из нескольких источников. Думаю самая свежая база что есть) Значит, выкладываю: базу для полуавтоматической регистрации RSS-фида или блога в русскоязычные каталоги RSS лент.

В архиве:

all-rss-ru.txt - все русские каталоги RSS какие только смог найти
good-rss-cat-ru.txt - сабмит на которые прошел успешно.
base.asd4 - те же успешные, база формата allsubmitter

http://depositfiles.com/ru/files/yzkibdb1k

пользуйтесь на здоровье)

О оффлановом ценообразовании

Проезжал сегодня в районе фрунзенской, захотелось кофе. Вернее сначала увидел макдональдс, и тут же захотелось кофе. По дороге в логово клоуна в полосатых чулках краем глаза заметил кафешку Старбакс. Решил попробовать что-то новое.
Короче говоря, стандартный стакан кофе в старбаксе, капуччино с карамельным сиропом мне обошелся в 225 рублей. Я до сих пор думаю что это охуеть)
Хотя кофе вкусный, и, сука, не жгучий, а горячий как раз ровно настолько, насколько его можно пить не обжигаясь, и стакан удобный, и очередей нет, и девочка симпатичная на кассе. Но 225 рублей. Все равно, это охуеть.

Прочекать проиндексированные ссылки с TNX

сабж) для англоязычного гугля/яху. кто нибудь встрачал готовый софт?
Теоретически как сделать для яхи - понять можно - выкачать все ссылки на страницы, из них взять только покупные (экспорт в панели TNX).
А для гугля? Это ж такой скрытный товарищ...

Какая встреча)

Захожу давеча вконтакт - смотрю - в друзья стукнулся Дмитрий Давыдов.
Думаю - ниче себе, неужто САМ?) Так даже прям как-то сразу приятно стало и тепло на душе) Думаю - вот она, известность то епт, вот она....

Оказалось все гораздо прозаичнее: http://vkontakte.ru/id38362658

Спаммеры проклятые...




Кстати, вы уже слышали, что Mitsuoka начала продавать свой новый электрокар Like? Полная копия Mitsubishi I. Куда мир катится.

c0061f40c585690ac2ae9df03d107a57