Arsip: shell execute di jaringan

 
user image
more 16 years ago

belajaraja

Salam temen, Saya mau nanya, gimana yah caranya pake shell execute tapi program nya ada di server ? saya coba seperti ini kok ngga bisa yah ?
ShellExecute(Handle, 'open', '\\namaserver\namafolderyangdishare\namafolder\namaaplikasi.exe', nil, nil, SW_SHOWNORMAL);
Mohon bantuannya ya teman
... Terima kasih
user image
more 16 years ago

ImanD

@belajaraja di tempat ku normal dan jalan tuch, no problemo..... coba cek lg masalah detailnya.. sample simple

uses 
  ShellAPI;
begin
  ShellExecute(Handle, 'open', '\\FuckYu\bla\testing.txt', nil, nil, SW_SHOWNORMAL);
end;
user image
more 16 years ago

ozan

@belajaraja Mungkin namafolderyangdishare atau namafolder yg kamu buat ada spasi nya. maaf jika salah :D
user image
more 16 years ago

yayaretina

@ozan salah tak mengapa ? jng berkecil hati.. xixiixiii... execute lgsung pada folder yg disharing bisa ngga'? Firewall, jaringan... etc.. bisa menjadi faktor.. seperti bro ImanD.. daku jg tak bermasalah dengan script diatas !
user image
more 16 years ago

saysansay

Bro @balaraja klu Shellexcute Tampilnya di Kompie Yang bersangkutan daku belum bisa!tapi klu dikau mau shellexcute DiKompie yang lain Dan Tampilnya Di Kompie Kita Udah Tak Coba Kompie @Bro retina Sebagai Bahan Experimen Dan Sukses Dengan Catatan Folder Harus Di Share!!Metode yang Daku Gunakan Pake SendMessage....Xiixixi Ajaran Bos DE(@delphiExpert Wkekekeekeke Jadi Ingat pas Make EventPort)...

   uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,shellApi;
const
  wm_Execute=WM_USER+1;
type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
    procedure ExcuteApp(var MsgKu:TMessage);message wm_Execute;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ExcuteApp(var MsgKu: TMessage);
var
  AppName:PChar;
begin
  AppName:=pChar(MsgKu.LParam);
  MsgKu.Result:=1;
  ShellExecute(Handle,'Open',AppName,nil,nil,SW_SHOWNORMAL);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  AppName: String;
begin
  AppName:='\\192.168.14.146\Buat loe\Menu Aplikasi v 4.0\PlainLogReader.exe';
  SendMessage(Handle,wm_Execute,0,DWORD(PChar(AppName)));
end;
NB: Metode biasa juga kayanya bisa asal Folder DiShare ajah....Ternyata Event Port Ada manfaatnya jga yah Mas DE..xixxixixxii
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com