1. 程式人生 > >Delphi獲取預設印表機名稱及埠

Delphi獲取預設印表機名稱及埠

procedure TForm1.Btn1Click(Sender: TObject);
var
    AppName : Array [0..256] of Char;    //節名稱字串
    KeyName : Array [0..256] of Char; //鍵名稱字串
    DefaultString : Array [0..256] of Char; //在鍵名沒找到時預設返回的字串
    ReturnedString : Array [0..256] of Char; //在鍵名找到時返回的字串
begin
    AppName := 'Windows';//節名稱
    KeyName := 'device';    //鍵名稱
    GetProfileString(AppName,KeyName,DefaultString,ReturnedString,Sizeof(ReturnedString));
    ShowMessage(ReturnedString);
end;