VPF::Перевод с дельфи на C++ - Форум программистов

DCamer

Дата 8.5.2011, 16:48 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 232
Регистрация: 29.1.2010

Репутация: нет
Всего: нет

Помогите перевести нижеприведённый код с дельфи на Си++.

Код


unit MarilynUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ShellApi;

type
  TMarilynForm = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MarilynForm: TMarilynForm;
  function IsWin64: Boolean;
implementation

{$R *.dfm}

function IsWin64: Boolean;
type
  TIsWow64Process = function(Handle: THandle; var Res: BOOL): BOOL; stdcall;
var
  IsWow64Result: BOOL;
  IsWow64Process: TIsWow64Process;
begin
  Result := False;

  IsWow64Process := GetProcAddress(GetModuleHandle(Kernel32), 'IsWow64Process');
  if (Assigned(IsWow64Process) and IsWow64Process(GetCurrentProcess, IsWow64Result)) then
    Result := IsWow64Result;
end;
procedure TMarilynForm.FormCreate(Sender: TObject);
var
dir,a,b:string;
begin
begin
Application.ShowMainform:=false;
getdir(0,dir);
end;
begin
a:=dir+'\data.exe';
b:=dir+'\datax.exe';
  Case IsWin64 of
 True: ShellExecute(0, 'open', pchar(b), 'x game.pak  -o* *.* -r -p"z6V"', nil, SW_HIDE) ;
 False: ShellExecute(0, 'open', pchar(a), 'x game.pak  -o* *.* -r -p"z6V"', nil, SW_HIDE);
End;
end;
end;
end.

--------------------

Нуб! Windows 7 Ultimate x64, Embarcadero RAD Studio 2010 - C++Builder 2010

586

Дата 8.5.2011, 20:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2243
Регистрация: 8.5.2006

Репутация: 57
Всего: 146

Код

BOOL IsWin64()
{
    typedef BOOL (WINAPI *TIsWow64Process)(HANDLE hProcess, BOOL *bRes);
    TIsWow64Process IsWow64Process = (TIsWow64Process)GetProcAddress(GetModuleHandle(TEXT("kernel32")), "IsWow64Process");
    BOOL IsWow64Result;
    if(IsWow64Process && IsWow64Process(GetCurrentProcess(), &IsWow64Result))
        return IsWow64Result;
    return FALSE;
}

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    String dir, a, b;
    Application->ShowMainForm = false;
    dir = GetCurrentDir();
    a=dir+"\\data.exe";
    b=dir+"\\datax.exe";
    if(IsWin64())
    {
        ShellExecute(NULL, "open", b.c_str(), "x game.pak  -o* *.* -r -p\"z6V\"", NULL, SW_HIDE);
    }
    else
    {
        ShellExecute(NULL, "open", a.c_str(), "x game.pak  -o* *.* -r -p\"z6V\"", NULL, SW_HIDE);
    }
}

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »