我要寫一隻自動列印資料夾中的檔案的程式
我是用ShellExecute(0, PChar('print'), Pchar('C\Test.txt'),PChar('printer'), nil, SW_HIDE);列印
可是我發現這不但會出現選擇印表機的視窗
而且我會不知道該檔案是否已經被列印出去(因為必須要把已列印的檔案刪除)

我想請問一下
有什麼方法可以不用選擇印表機
而且可以知道該檔案是否有列印成功呢?
謝謝了

我用背的, 錯了不要怪我
[code delphi]
var
wnd : handle;
begin
wnd := ShellExecute(0, PChar('print'), Pchar('C\Test.txt'),PChar('printer'), nil, SW_HIDE);
if wnd > 32 then begin
showmessage('succeful');
end
else begin
showmessage('fail');
end;
end;
[/code]

------
努力會更接近成功

摘自自己多年發表
簡單的掃描器程式
http://delphi.ktop.com.tw/board.php?cid=31&fid=79&tid=28580
[code delphi]
procedure TForm1.ComboBox1Change(Sender: TObject);
var
inifile : Tinifile;
tempstr1, tempstr2, tempstr3 : string;
begin
with printer do begin
printerindex := combobox1.ItemIndex;
tempstr1 := printers[printerindex];
tempstr3 := tempstr1;
system.Delete(tempstr1, pos('on ', tempstr1),length(tempstr1));
// 變動預設印表機
inifile := tinifile.create('win.ini');
try
tempstr2:= inifile.ReadString('Devices',tempstr1,'');
inifile.WriteString('windows','device',tempstr1 ',' tempstr2);
finally
inifile.Free;
end;
// 儲存自己的印表機
inifile := tinifile.create(ExtractFiledir(application.ExeName) '\scana4.ini');
try
inifile.WriteString('printers','device',tempstr3);
finally
inifile.Free;
end;
end;
StatusBar1.Panels[1].Text := '預設印表機: ' printer.printers[printer.printerindex];
end;[/code]

------
努力會更接近成功