Arsip: shell execute di jaringan
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
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;
more 16 years ago
ozan
@belajaraja
Mungkin namafolderyangdishare atau namafolder yg kamu buat ada spasi nya.
maaf jika salah :D
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 !
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..xixxixixxiimore ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- tolong donk!belajar database enaknya dari mana dulu??
by rully in Lain-lain more 17 years ago - query error = ngehank.?
by nurez in Hal umum tentang Pascal Indonesia more 17 years ago - Licence Delphi
by anaconda in MySQL more 17 years ago - Mengetahui System dir
by ho2sly in Tip n Trik Pemrograman more 16 years ago - besar volume+tunjukkan nilai secara program?
by Fransisca_cicilia in Hal umum tentang Pascal Indonesia more 16 years ago - [USUL] Dephi-ID project: OpenDBX convertion to Pascal
by simba in Tutorial & Community Project more 17 years ago - excel to dbgrid or the other...??
by adokonax in Tip n Trik Pemrograman more 17 years ago - Case sensitive mysql
by lumpurpanas in MySQL more 18 years ago - Print dbgrid langsung tanpa memakai Qreport, Rave dll
by mrzie05 in Reporting more 15 years ago - Mencetak Text Yang Ada Di Memo ?
by umarbakri in Hal umum tentang Pascal Indonesia more 17 years ago