shellexecute ve prompt

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
yastik
Üye
Mesajlar: 71
Kayıt: 01 Ağu 2003 05:26
İletişim:

shellexecute ve prompt

Mesaj gönderen yastik »

Kod: Tümünü seç

ShellExecute(Handle, 'Open',PChar('pg_dump.exe '),PChar(' -p 5432 -U postgres '),nil,SW_HIDE)
fonksiyonu ile

Kod: Tümünü seç

pg_dump.exe 
yi çağırıyorum. Bu durumda
prompt ile password bekliyor. Password ü parametre ile almadığından dolayı bi şekilde prompt a password ü girmenin bi yolunu bulmam lazım :)

iyi akşamalar..
ALi ÇELİK
moonred
Üye
Mesajlar: 14
Kayıt: 05 Kas 2005 11:13
Konum: İstanbul
İletişim:

Mesaj gönderen moonred »

http://www.net-sistem.net/netsis/DOS.zip

Belki bu örnek işine yarayabilir...
Kullanıcı avatarı
yastik
Üye
Mesajlar: 71
Kayıt: 01 Ağu 2003 05:26
İletişim:

Mesaj gönderen yastik »

sağol, yaramadı :) Farklı şeyler gibi.
ALi ÇELİK
kissoid
Üye
Mesajlar: 28
Kayıt: 12 Tem 2005 02:06
İletişim:

Mesaj gönderen kissoid »

ShellExecute(Handle, 'Open','c:\cpg_dump.exe -p 5432 -U postgres',nil,nil,SW_HIDE);

pchar fonksiyonunu string değişkenini dönüştürmek için kullan. burada direkt olarak girmişsin pathi zaten.

path: String;
path := 'c:\cpg_dump.exe -p 5432 -U postgres';

ShellExecute(Handle, 'Open',PChar(path),nil,nil,SW_HIDE);

paramstr(1) -p ye eşit olur
paramstr(2) 5432 ye eşit olur
paramstr(3) -U ye eşit olur
paramstr(4) -postgres ye eşit olur
Kullanıcı avatarı
yastik
Üye
Mesajlar: 71
Kayıt: 01 Ağu 2003 05:26
İletişim:

Mesaj gönderen yastik »

anlatamıyormuyum yoksa anlamıyormuyum :)
ALi ÇELİK
Kullanıcı avatarı
yastik
Üye
Mesajlar: 71
Kayıt: 01 Ağu 2003 05:26
İletişim:

Mesaj gönderen yastik »

Sonuç olarak;

Kod: Tümünü seç

shellexecute(Handle,'open',PChar( 'c:\windows\system32\cmd.exe'),PChar('/C echo password | "pg_dump.exe" -i -h localhost -p 5432 -U user -F p -O -D -v -f "dump.sql" database '),nil,SW_HIDE);
ALi ÇELİK
Cevapla