procedure TfrmMain.cbxTestCaseFilterKeyPress(Sender: TObject; var Key: Char);
begin
case Ord(Key) of
// {Enter} Apply Filter
13: begin
actTestCaseFilterApply.Execute;
Key := #0;
end;
fuser -k 3389/tcp
VBoxManage controlvm <ИмяВиртуалки> setvideomodehint 1280 800 16, где 1280 800 - это разрешение, а 16 - глубина цвета
Дальше Terminal->Bell и выбираем что душе нравится.
/usr/bin/java: line 2: /usr/lib/jvm/default/bin/java: Too many levels of symbolic links
/usr/bin/java: line 2: exec: /usr/lib/jvm/default/bin/java: cannot execute: Too many levels of symbolic links
sudo archlinux-java fix
rm -Rf ~/.SkypeЭто меня не устраивало, т.к. терялась вся история всех переписок.
$ sqlite3 ~/.Skype/[username]/main.db
> UPDATE Messages SET body_xml=substr(body_xml,instr(body_xml,'> .quit
sqlite3 .Skype/[USERNAME]/main.db
sqlite> DELETE FROM Messages WHERE type=68;
sqlite> .quit
fuser -m <устройство или точка монтирования>получим PID а дальше
ps -A|grep <PID который получили>Дальше можно соорудить конвеер, чтобы сразу получить имя процесса, который держит устройство. Но не сейчас.
root@legatus ~ # fuser -m /run/media/magedon/7f9776a7-7cef-4105-860c-17a723220f85
/run/media/magedon/7f9776a7-7cef-4105-860c-17a723220f85: 645
root@legatus ~ # ps -A|grep 645
645 ? 01:05:51 skype
pacman -S kwebkitpartВ вашей системе смотрите сами как.
/opt/google/chrome/google-chrome --password-store=basic %UЧто это означает не искал. Возможно не самое правильное решение, но он перестал меня доставать.
for file in 10y/*; do ln -s ../10y/$file ../bin/$file; done
for file in 10y/*;где file - это переменная итератор
do ln -s ../10y/$file ../bin/$file;значение переменной извлекается через $, поэтому пишем не просто file, а $file
for <переменная итератор> in <маска>; do <действие>; doneОбратите внимание на точки с запятыми do и done - это обязательно
"Лень - двигатель прогресса"Нашел как это сделать. И все оказалось очень просто. И так.
Сколько себя помню у Delphi никогда не было своего компонента выбора папки типа TOpenDialog и каждый раз когда нужно было выбирать именно папку искал как это делается....
function SelectFolder(hWnd: HWND; const Caption: WideString; var Folder: WideString): boolean;
...
implementation
uses ShlObj, ActiveX, Forms;
var
DefaultPath: widestring = '';
...
//Эта функция нужна для установки пути по умолчанию
function BrowseCallbackProc(hwnd: HWND; uMsg: UINT; lParam: LPARAM; lpData: LPARAM): integer; stdcall;
begin
Result := 0;
if uMsg = BFFM_INITIALIZED then
SendMessage(hwnd, BFFM_SETSELECTION, 1, LongInt(PWideChar(DefaultPath)));
end;
function SelectFolder(hWnd: HWND; const Caption: WideString; var Folder: WideString): boolean;
var
WindowList: Pointer;
BrowseInfo : TBrowseInfo;
Buffer: PChar;
RootItemIDList, ItemIDList: PItemIDList;
ShellMalloc: IMalloc;
IDesktopFolder: IShellFolder;
Eaten, Flags: LongWord;
begin
FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
if (ShGetMalloc(ShellMalloc) = S_OK) and (ShellMalloc <> nil) then
begin
Buffer := ShellMalloc.Alloc(MAX_PATH);
try
DefaultPath := Folder;
RootItemIDList := nil;
with BrowseInfo do
begin
hwndOwner := hWnd;
pidlRoot := RootItemIDList;
pszDisplayName := Buffer;
lpfn := @BrowseCallbackProc;
lpszTitle := PWideChar(Caption);
ulFlags := BIF_RETURNONLYFSDIRS or $0040 or BIF_EDITBOX or BIF_STATUSTEXT;
end;
WindowList := DisableTaskWindows(0);
try
ItemIDList := ShBrowseForFolder(BrowseInfo);
finally
EnableTaskWindows(WindowList);
end;
Result := ItemIDList <> nil;
if Result then
begin
ShGetPathFromIDList(ItemIDList, Buffer);
ShellMalloc.Free(ItemIDList);
Folder := Buffer
end;
finally
ShellMalloc.Free(Buffer);
DefaultPath := '';
end;
end;
end;
procedure TframeGeneralSettings.Button1Click(Sender: TObject);
var
Value: WideString;
begin
Value := edtImagesFolder.Text;
if SelectFolder(Handle, 'Select ' + lblImagesFolder.Caption, Value) and (Value <> edtImagesFolder.Text) then
edtImagesFolder.Text := Value;
end;
С:\Documents and Settings\All Users\Documents\RAD Studio\5.0\Bpl\И при загрузке от туда не поднимает. Т.к. я буду отдавать этот компонент людям, что бы они дальше с ним работали, то я не надаюсь, что каждый додумается добавить эти папки в пути поиска.
С:\Documents and Settings\All Users\Documents\RAD Studio\5.0\Dcp\
С:\Program Files\CodeGear\RAD Studio\5.0\bin\Может я что-то сделал не канонично. Но по крайней мере работает.
С:\Program Files\CodeGear\RAD Studio\5.0\lib\
/etc/rc.d/vboxdrv setupОна то и сбивала меня с толку. Дело в том, что в Арче не команды /etc/rc.d/vboxdrv. А так как это обнаруживалось во время рабочего дня - искать каноничных решений времени обычно небыло. Просто переставлял VirtualBox.
/etc/rc.d/rc.vboxdrv setup
[global]
follow symlinks = yes
wide links = yes
unix extensions = no
