очистка буфера обмена

[beegl]

Сообщение от Человек_Борща

Более того, проще удалить сам запуск этих процессов, т.к. они все равно лишние и отнимают время на загрузку винды в целом.

из-за того, что библиотеки, которые были захвачены при старте винды уже забрали ресурсы и это не исправимо или почему?

[beegl]

подскажите как оформить горячую клавишу при запуске программы в консоле, надо при зажатом Shift + двойной клик по иконке программы, т.е. запуск программы с зажатым Shift что-то выполнялось,

это пример горячую клавиши для обычного приложения:

 private
    { Private declarations }
    id1: Integer;
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
//////////////

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
 begin
   if Msg.HotKey = id1 then
   ShellExecute(Handle, nil, PChar(ExtractFilePath(ParamStr(0))+'проектделфи.pptx'), nil, nil, SW_SHOWNORMAL);
end;

procedure TForm1.FormCreate(Sender: TObject);
const
     VK_F1Ex    = $70;
begin
   // Register Hotkey F1
  id1 := GlobalAddAtom('Hotkey1');
  RegisterHotKey(Handle, id1, 0,VK_F1Ex);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 UnRegisterHotKey(Handle, id1);
end;

[beegl]

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

нашел, пример)

program Demo;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  Winapi.Windows,
  Winapi.ShellAPI,
  System.SysUtils;
  
begin
  Writeln('start…');
  if (GetAsyncKeyState(VK_SHIFT) and $8000 > 0) then
  begin
    Writeln('SHIFT down');
    ShellExecute(HWND_DESKTOP, 'OPEN', 'EXPLORER.EXE', nil, nil, SW_SHOWNORMAL);
  end;
  Readln;
end.

[beegl]

как добавить процедуру AutoClose MessageBox OnTimer 10 сек и добавить CheckBox для MessageBox

этот пример только Application TForm1.Button1Click, помогите оформить для MessageBox для консоли

var
  AMsgDialog: TForm;
  ACheckBox: TCheckBox;
begin
  AMsgDialog := CreateMessageDialog('This is a test message.', mtWarning, [mbYes, mbNo]);
  ACheckBox := TCheckBox.Create(AMsgDialog);

  with AMsgDialog do
    try
      Caption := 'Dialog Title' ;
      Height := 169;

      with ACheckBox do
      begin
        Parent := AMsgDialog;
        Caption := 'Don''t show me again.';
        top := 121;
        Left := 8;
        Width := 140;
      end;

      case ShowModal of
        ID_YES: ;//здесь Ваш код после того как диалог будет закрыт
        ID_NO: ;
      end;

      if ACheckBox.Checked then
      begin
        //...
      end;
    finally
      ACheckBox.Free;
      Free;
    end;
end;

[beegl]

всем привет, я хочу добавлять очистку DDR mem, в консольном приложении, пожалуйста напишите предложения, пример, будет прикольная программа KillTrashFx

эта процедура procedure только мою программу очищает, но не всю систему

procedure CleanDDRmem;
var
   MainHandle: THandle;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
  MainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID);
  SetProcessWorkingSetSize(MainHandle, DWORD(-1), DWORD(-1));
  CloseHandle(MainHandle);
 end;
end;

Надо как-то всю систему очистить)

[ZuBy]

Добро пожаловать на блог beegl'a

[beegl]

+ ADD "не нужных процессов":

KillTask('TrueImage.exe'); 
KillTask('nvsvc32.exe'); 
KillTask('schedul2.exe'); 
KillTask('MDM.EXE');//MDM.EXE 
KillTask('StarWindServiceAE.exe'); 
KillTask('syncagentsrv.exe'); 
KillTask('PCSuite.exe'); 
KillTask('jqs.exe'); 
KillTask('afcdpsrv.exe'); 
KillTask('ServiceLayer.exe'); 
KillTask('TrueImageHomeNotify.exe'); 
KillTask('TrueImageHomeService.exe'); 
KillTask('KMPService.exe'); 
KillTask('KMPElevateExecutor.exe'); 
KillTask('KMPProcess.exe'); 
KillTask('LiveUpdate.exe'); 
KillTask('ASCService.exe'); 
KillTask('wuauclt.exe'); 
KillTask('rundll32.exe'); 
KillTask('GASender.exe'); 
KillTask('timeserv.exe'); 
KillTask('opera_autoupdate.exe'); 
KillTask('opera_crashreporter.exe'); 
KillTask('mbamscheduler.exe'); 
KillTask('timeserv.exe'); 
KillTask('HD-LogRotatorService.exe'); 
KillTask('HD-UpdaterService.exe'); 
KillTask('UmmyVD-Web-Loader.exe'); 
KillTask('CDSpeed.exe'); 
KillTask('alg.exe'); 
KillTask('MSI.exe'); 
KillTask('TSVNCache.exe'); 
KillTask('WPFFontCache_v0400.exe'); 
KillTask('NvXDSync.exe'); 
KillTask('alg.exe'); 
KillTask('ASC.exe'); 
KillTask('ASCTray.exe'); 
KillTask('AutoUpdate.exe'); 
KillTask('plugin-container.exe'); 
//KillTask('MOBILeditFramework.exe'); 
KillTask('ProcExp.exe'); 
KillTask('procexp64.exe');

[beegl]

Сообщение от beegl

+ ADD "не нужных процессов":

добчас, помогите добавить средствами API (чтоб прект не увеличивался) ещё ''до кучи'' очистку временных папок C:/Temp и C:/Windows/Temp

улучшить можно как-то:

function DeleteDir(Dir : string) : boolean; 
Var 
Found : integer; 
SearchRec : TSearchRec; 
begin 
result:=false; 
if IOResult<>0 then ; 
ChDir(Dir); 
if IOResult<>0 then begin 
ShowMessage("Не могу войти в каталог: "+Dir); exit; 
end; 
Found := FindFirst("*.*", faAnyFile, SearchRec); 
while Found = 0 do 
begin 
if (SearchRec.Name<>".")and(SearchRec.Name<>"..") then 
if (SearchRec.Attr and faDirectory)<>0 then begin 
if not DeleteDir(SearchRec.Name) then exit; 
end else 
if not DeleteFile(SearchRec.Name) then begin 
ShowMessage("Не могу удалить файл: "+SearchRec.Name); exit; 
end; 
Found := FindNext(SearchRec); 
end; 
FindClose(SearchRec); 
ChDir(".."); RmDir(Dir); 
result:=IOResult=0; 
end; 

Для кнопочки: 
var 
s1 : array[0..254] of Char; 
begin 
GetWindowsDirectory(s1,255); 
DeleteDir(s1+"\TEMP\"); 
end;

[Aliens_wolfs]

Вот код находит папку Temp и удаляет в ней все содержимое и папки и файлы
добавьте в проект ShellAPI

//Найти папку Temp
function _GetTempPath: string;
begin
SetLength(result, MAX_PATH);
SetLength(result, GetTempPath(MAX_PATH, PChar(result)));
end;

// Удаление методом ShFileOperation удаляет все содержимое вместе с назначенной папкой, применим эту функция ниже
function Deletes(srcDir: string): boolean;
var
  fos : TSHFileOpStruct;
  St : String;
begin
  St := srcDir + #0;
  FillChar(fos, SizeOf(fos), 0);
  with fos do
  begin
    wFunc := FO_DELETE;
    pFrom := PChar(St);
    fFlags := FOF_NOCONFIRMATION or FOF_SILENT;//FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;
  end;
 Result := (0 = ShFileOperation(fos));
end;

//Функция удаляет весь список файлов, каталогов и подкаталогов нужной папке
procedure DeleteAll(srcPath : string);
Var
SearchRec: TSearchRec;
Begin
IF srcPath[Length(srcPath)]<>'\'then
srcPath := srcPath + '\';
//крутим список файлов
IF (FindFirst(srcPath+'*.*', faAnyFile, SearchRec)=0) then
Repeat
IF(SearchRec.Attr and faDirectory) <> faDirectory then
if not Deletes(srcPath+SearchRec.Name) then
ShowMessage('Не могу удалить файл: '+ srcPath+SearchRec.Name);

IF((SearchRec.Attr and faDirectory) = faDirectory)and
(SearchRec.Name <> '..')and
(SearchRec.Name <> '.') then
if not Deletes(srcPath+SearchRec.Name) then
ShowMessage('Не могу удалить каталог: '+ srcPath+SearchRec.Name);
Application.ProcessMessages;
Until FindNext(SearchRec)<>0;
FindClose(SearchRec);
end;

// применение
procedure TForm1.Button6Click(Sender: TObject);
begin
DeleteAll(_GetTempPath); //Удаление всего содержимого в папке
//либо это Deletes(_GetTempPath); // удаляет сразу все и ту папку в которой идет удаление 
end;

[northener]

Может кто-нибудь сказать мне о чем собственно этот топик?