Salut a tous.
Voici mon problème.
Au lancement de l'appli, celle-ci doit afficher une page web dans un WebBrowser, or il ne se passe rien.
D'où peux venir mon problème ?
J'ai essayé Onload, j'obtient le même résultat...
Merci !
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ShellApi, ComCtrls, ExtActns, OleCtrls, SHDocVw;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
WebBrowser1: TWebBrowser;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
fileName : string;
myFile : TextFile;
data : string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowMessage('test');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'wow.exe', nil, nil, SW_SHOWNORMAL) ;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.close;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'http://www.utopia-serveur.fr/index.php?file=register', nil, nil, SW_SHOWNORMAL) ;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
fileName := 'Cache\WDB\frFR\creaturecache.wdb';
DeleteFile(fileName);
fileName := 'Cache\WDB\frFR\gameobjectcache.wdb';
DeleteFile(fileName);
fileName := 'Cache\WDB\frFR\itemcache.wdb';
DeleteFile(fileName);
fileName := 'Cache\WDB\frFR\itemnamecache.wdb';
DeleteFile(fileName);
fileName := 'Cache\WDB\frFR\itemtextcache.wdb';
DeleteFile(fileName);
fileName := 'Cache\WDB\frFR\npccache.wdb';
DeleteFile(fileName);
fileName := 'Cache\WDB\frFR\pagetextcache.wdb';
DeleteFile(fileName);
fileName := 'Cache\WDB\frFR\questcache.wdb';
DeleteFile(fileName);
fileName := 'Cache\WDB\frFR\wowcache.wdb';
DeleteFile(fileName);
ShowMessage('Le cache a bien été vidé.')
end;
end.
Afficher la suite