shellexecute ve prompt

[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..

[moonred]

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

Belki bu örnek işine yarayabilir...

[yastik]

sağol, yaramadı Farklı şeyler gibi.

[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

[yastik]

anlatamıyormuyum yoksa anlamıyormuyum

[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);