Comment lançé une application !Résolu

Question

Bonjour j'aimerais savoir comment lançé une application du style Paint ! Voici mon code !

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, MMsystem;

type
  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if Socket.ReceiveText='Openpaint' then begin
paint.exe;
end;

end.

J'aimerais savoir si mon code est correct ou pas ?

Merci

cs_cantador · Accepted Answer

A la place de paint.exe :
...
uses  ShellAPI...

ShellExecute(0, 'Open', 'C:\Windows\System32\MsPaint.exe', nil, nil, SW_SHOWDEFAULT);

cantador

emirej · Answer

Personne ?

cs_cantador · Answer

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if Socket.ReceiveText='Openpaint' then begin
paint.exe;
end;


et cette procédure ouvre paint ?

cantador

cs_Delphiprog · Answer

@emirej : tu poses ta question le 02/03/2008 22:27:41 et à  22:51:54 tu demandes déjà une réponse ???
Hola camarade, on n'est pas aux pièces ni à ton service exclusif et en plus c'est dimanche. 

Pour faire simple, vois l'utilisation de ShellExecute contenue dans ShellApi.

May Delphi be with you !
<hr color="#008000" />
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

emirej · Answer

Ok Excuse moi ! Mais j'ai toujours pas reussi a trouvé :\

Nicolas___ · Answer

http://delphipage.free.fr/shellexecute.html

si tu comprends pas , abandonne ! lol 

Ciao

emirej · Answer

Merci bcp

Comment lançé une application !

7 réponses

Votre réponse

Discussions similaires