Duvida Delphi - Incompatibilidade

[NewTroy 0]

Estou tentando executar o Goolge Chrome apartir do delphi, veja o projeto:

 

 

[sENHA]unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

 

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

Google32: PAnsichar;

 

implementation

 

function UserName : String;

var

lpBuffer : Array[0..20] of Char;

nSize : dWord;

Achou : boolean;

erro : dWord;

begin

nSize := 120;

Achou := GetUserName(lpBuffer,nSize);

if (Achou) then

begin

result := lpBuffer;

end

else

begin

Erro :=GetLastError();

result :=IntToStr(Erro);

end;

end;

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Google32:=PAnsichar(UserName);

 

WinExec('C:/Documents and Settings/' + Google32 + '/Configurações locais/Dados de aplicativos/Google/Chrome/Application/chrome.exe

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

', SW_Show);

end;

 

end.[/sENHA]

 

O problema é que o delphi não aceita uma variável dentro do campo do WinExec(), somente aceita uma PAnsichar.

 

Como faço então para que o Google Chrome seja executado?

[Ryokusei 28]

Sim, o Delphi aceita variável dentro do campo WinExec().

 

WinExec(PChar('C:/Documents and Settings/' + Google32 + '/Configurações locais/Dados de aplicativos/Google/Chrome/Application/chrome.exe Google'), SW_Show);

[NewTroy 0]

mesmo convertendo:

WinExec(PAnsiChar('C:/Documents and Settings/' + UserName + '/Configurações locais/Dados de aplicativos/Google/Chrome/Application/chrome.exe Google'), SW_Show);

 

ou

 

WinExec(Google32, SW_Show);

 

ele não executa a função...

[darkfenyx3 7]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[NewTroy 0]

como utilizo essa função:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

:confused:???:confused:

[darkfenyx3 7]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Surfistinha£ 25]

WinExec('C:\Arquivos de programas\gunzlauncher.exe', sw_show);

 

funciona normalmente aqui

[NewTroy 0]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Funcionou!

:yes:

 

Valeu pela ajuda!

 

Mas a função:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

não irá atrapalhar nada em meu aplicativo?

[darkfenyx3 7]

Não, ela só irá armazenar seu diretório.

[Surfistinha£ 25]

Fechado

Caso ainda tenha duvida me chame para abrir