Delphi

4Nov/143

Delphi добавить контакт в Skype. Библиотека Skype4COM

Добавить новый контакт с помощью Delphi не так сложно.
Все что нам потребуется - это библиотека предоставляющая интерфейс работы со скайпом через COM под названием Skype4COM и менее 10 строчек кода в итоге

var
  Skype: OleVariant;
  Friends: OleVariant;
begin
  Skype := CreateOleObject('Skype4COM.Skype');
  Friends := Skype.SearchForUsers('User_Login');
 
  if Friends.Count >= 1 then
    Friends.Item[1].BuddyStatus := 2;
end;

Метки записи: Delphi, Skype, Skype4COM, Добавить контакт, Скачать Skype4COM Читать полностью

11Nov/126

myImageScreen – программа удобного снятия скриншотов

myImageScreen

Небольшая программа, которая упрощает процесс снятия скриншотов экрана и заливки получившихся изображений в интернет.

Программа оснащена небольшим редактором, благодаря которому тут же можно написать что-то карандашом на изображении, кистью, стереть ненужные элементы, а также отметить линиями.

Метки записи: Delphi, myImageScreen, Программа снятия скриншотов Читать полностью

28Jul/120

Получение иконки файла

Функция возвращает иконку файла по его расширению.
Пример использования:
GetFileIcon('bmp');

Подключаемые модули:
ShellAPI

function GetFileIcon(Ext: string): TIcon;
var
  TestFile: array[1..255] of Char;
  FileInfo: TSHFileInfo;
begin
  StrPCopy(@TestFile, '*.' + Ext + #0);
  SHGetFileInfo(@TestFile, 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON or SHGFI_USEFILEATTRIBUTES);
  Result := TIcon.Create;
  Result.Handle := FileInfo.hIcon;
end;

Метки записи: Delphi, TIcon Нет комментариев

Последние записи

Последние комментарии

Облако тегов

Страницы

Карта сайта