Ktf
Тоже давно мечтал ее снести.
Цитата:
У меня это не остановило службу! После чего я подумал, фиг с тобой, полез и руками ее остановил и еще раз попытался деинсталлировать, оно мне сказало, что служба не зарегистрирована, хотя в списке служб так и висит. Судя по логу, который состоит из фраз типа:
Цитата:
там они накосячили с установкой/удалением службы по полной программе...
В общем остановил службу, хоть память не занимает.
Цитата:
Это нормально - в общем случае деинсталляция, или разрегистрация службы подразумевает удаление ее регистрации в системе, регистрации источника сообщений для нее в журнале сообщений системы и все. А файлы службы уже это дело десятое - их после успешной деинсталляции службы надо руками сносить. Безусловно, если бы был отдельный инсталлятор на этот SQL-сервер, он бы все сделал автоматом сам - у разрегистрировал службу и удалил файлы, но нам это не светит...
Добавлено:
Medium
Нельзя ли уточнить, в каком месте это работает? Я подозреваю, что это какой-то обработчик события. А такде кто такой APicture и ilMain?
Добавлено:
Medium
В общем так.
На форме есть: Button1: TButton; Image1: TImage; ImageList1: TImageList; Button2: TButton;
У ImageList1 изменено:ColorDepth = cd32Bit, все остальное - по умолчанию.
Следующий код замечательно работает в Дельфи 2010:
Код:
{$R PNGImages.res}
procedure TForm1.Button1Click(Sender: TObject);
var
wPNGImage: TPngImage; Bmp: TBitmap;
begin
wPNGImage := TPngImage.Create;
Bmp:= TBitmap.Create;
try
// загружаю пнг-ресурс с именем 'P_PRESET_DELETE' из PNGImages.res:
wPNGImage.LoadFromResourceName(HInstance, 'P_PRESET_DELETE');
Bmp.Assign(wPNGImage);
Image1.Picture.Bitmap.Assign(Bmp); //отображаю в Image1
//загружаю в ImageList1 и назначаю картинку Буттону2:
ImageList1.AddMasked(Bmp, clWhite);
Button2.Images:= ImageList1;
Button2.ImageIndex:= 0;
finally
wPNGImage.Free;
Bmp.Free;
end;
Тоже давно мечтал ее снести.
Цитата:
выполнил BSQLServer -remove BSQLServer
это остановило и снесло службу, но файлы остались
У меня это не остановило службу! После чего я подумал, фиг с тобой, полез и руками ее остановил и еще раз попытался деинсталлировать, оно мне сказало, что служба не зарегистрирована, хотя в списке служб так и висит. Судя по логу, который состоит из фраз типа:
Цитата:
При удалении из системы возникло исключение. Это исключение будет проигнорировано, и удаление из системы будет продолжено. Однако после завершения удаления данное приложение может оказаться не полностью удаленным.
там они накосячили с установкой/удалением службы по полной программе...
В общем остановил службу, хоть память не занимает. Цитата:
но файлы остались
Это нормально - в общем случае деинсталляция, или разрегистрация службы подразумевает удаление ее регистрации в системе, регистрации источника сообщений для нее в журнале сообщений системы и все. А файлы службы уже это дело десятое - их после успешной деинсталляции службы надо руками сносить. Безусловно, если бы был отдельный инсталлятор на этот SQL-сервер, он бы все сделал автоматом сам - у разрегистрировал службу и удалил файлы, но нам это не светит...
Добавлено:
Medium
Нельзя ли уточнить, в каком месте это работает? Я подозреваю, что это какой-то обработчик события. А такде кто такой APicture и ilMain?
Добавлено:
Medium
В общем так.
На форме есть: Button1: TButton; Image1: TImage; ImageList1: TImageList; Button2: TButton;
У ImageList1 изменено:ColorDepth = cd32Bit, все остальное - по умолчанию.
Следующий код замечательно работает в Дельфи 2010:
Код:
{$R PNGImages.res}
procedure TForm1.Button1Click(Sender: TObject);
var
wPNGImage: TPngImage; Bmp: TBitmap;
begin
wPNGImage := TPngImage.Create;
Bmp:= TBitmap.Create;
try
// загружаю пнг-ресурс с именем 'P_PRESET_DELETE' из PNGImages.res:
wPNGImage.LoadFromResourceName(HInstance, 'P_PRESET_DELETE');
Bmp.Assign(wPNGImage);
Image1.Picture.Bitmap.Assign(Bmp); //отображаю в Image1
//загружаю в ImageList1 и назначаю картинку Буттону2:
ImageList1.AddMasked(Bmp, clWhite);
Button2.Images:= ImageList1;
Button2.ImageIndex:= 0;
finally
wPNGImage.Free;
Bmp.Free;
end;
# 