скопировать вставить и заменить файл

[beegl]

добрый день, подскажите пожалуйста, как скопировать вставить и заменить файл?,

из

D:\gta_sa.exe 100%\gta_sa.exe

в

C:\Program Files\Grand Theft Auto San Andreas\gta_sa.exe

uses
  ShlObj, ClipBrd; 

procedure CopyFilesToClipboard(FileList: string); 
var 
  DropFiles: PDropFiles; 
  hGlobal: THandle; 
  iLen: Integer; 
begin 
  iLen := Length(FileList) + 2; 
  FileList := FileList + #0#0; 
  hGlobal := GlobalAlloc(GMEM_SHARE or GMEM_MOVEABLE or GMEM_ZEROINIT, 
    SizeOf(TDropFiles) + iLen); 
  if (hGlobal = 0) then raise Exception.Create('Could not allocate memory.'); 
  begin 
    DropFiles := GlobalLock(hGlobal); 
    DropFiles^.pFiles := SizeOf(TDropFiles); 
    Move(FileList[1], (PChar(DropFiles) + SizeOf(TDropFiles))^, iLen); 
    GlobalUnlock(hGlobal); 
    Clipboard.SetAsHandle(CF_HDROP, hGlobal); 
  end; 
end; 

// Example, Beispiel: 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  CopyFilesToClipboard('C:\Bootlog.Txt'#0'C:\AutoExec.Bat'); 
end;  

//Separate the files with a #0.

А как это всё вставить (какой-то пример там нашел: DelphiWorld)?

P.S. винчестер "убитый" и постоянно портится это файл gta_sa.exe ( компу уже ~ 12 лет, старый )) )

[rita616]

Так вроде...
copyfile('путь папки' , 'путь куда копировать ')

[beegl]

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

copyfile('путь папки' , 'путь куда копировать ')

А оно копируется не спрашивая подтверждение замены?

procedure TForm1.Button2Click(Sender: TObject);
begin
copyfile('D:\gta_sa.exe 100%\GTA SA Version 1.0 US -Jehr\GTA SA PATCH 1.0 US\',  
'C:\Program Files\Grand Theft Auto San Andreas\', True);
end;
 end.

[rita616]

А оно копируется не спрашивая подтверждение замены?

да.

[beegl]

Подскажите, а как программно распаковывать архив gta_sa.exe.rar и кинуть туда:

'C:\Program Files\Grand Theft Auto San Andreas\'

P.S. наверное какой-то вирус портит именно тот файл gta_sa.exe

[beegl]

Подскажите, пожалуйста, как отключить одно ядро для процесса gta_sa.exe, (их всего 2х, ядра), чтоб игра ускоренно не "летала".

P.S. соррри если не по теме.

[rita616]

Подскажите, а как программно распаковывать архив gta_sa.exe.rar и кинуть туда:

https://www.programmersforum.ru/showthread.php?t=258798, нашла вот

[beegl]

получилось:

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

https://www.programmersforum.ru/showthread.php?t=258798, нашла вот

так пробовал отключить одно ядро, не получилось ( как отключить одно ядро для процесса gta_sa.exe )

CheckCheckBox(FindWindow(nil,0), '#32770', False, 1);

procedure CheckCheckBox(hApp: HWND; ClassName: string; bValue: Boolean; CheckBoxNr: Integer);
var
  i: Word;
  hCheckBox: HWND;
begin
  if not IsWindow(hApp) then Exit;
  for i := 0 to CheckBoxNr do
    hCheckBox := FindWindowEx(hApp, hCheckBox, PChar(ClassName), nil);
  if IsWindow(hCheckBox) then
    SendMessage(hCheckBox, BM_SETCHECK, Integer(bValue), 0);
end;

[rita616]

Подскажите, пожалуйста, как отключить одно ядро для процесса gta_sa.exe, (их всего 2х, ядра), чтоб игра ускоренно не "летала".

https://coderoad.ru/9078838/SetProce...BE%D1%80%D0%B0, долго искала, вот это нашла, ничего особо не поняла, может получится

[beegl]

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

может получится

вот так должно работать??? :

type
  TProcessPriority = (ptLow         = $00000040,
                      ptBelowNormal = $00004000,
                      ptNormal      = $00000020,
                      ptAboveNormal = $00008000,
                      ptHigh        = $00000080,
                      ptRealtime    = $00000100);

procedure RunProcess(FileName: string; Priority: TProcessPriority);
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: string;
  Done: Boolean;
begin
  FillChar(StartInfo, SizeOf(TStartupInfo), #0);
  FillChar(ProcInfo, SizeOf(TProcessInformation), #0);
  StartInfo.cb := SizeOf(TStartupInfo);

  CmdLine := FileName;
  UniqueString(CmdLine);
  try
    Done := CreateProcess(nil, PChar(CmdLine), nil, nil, False,
                          CREATE_NEW_PROCESS_GROUP + Integer(Priority),
                          nil, nil, StartInfo, ProcInfo);
    if Done then
    begin
      // Todo: Get actual cpu core count before attempting to set affinity!
      // 0 = <All Processors>
      // 1 = CPU 0
      // 2 = CPU 1
      // 3 = CPU 2
      // 4 = CPU 3
      // 5 = CPU 5
      // 6 = CPU 6
      // 7 = CPU 6
      // 8 = CPU 7

      // this sets to CPU 0 - but how to allow multiple parameters to
      // set more than one logical processor?
      SetProcessAffinityMask(ProcInfo.hProcess, 1); 
    end else
      MessageDlg('Could not run ' + FileName, mtError, [mbOk], 0)
  finally
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;
end;

в кнопку вписать:

RunProcess('gta_sa.exe',1); // только одно ядро для gta_sa.exe

Или как?