Làm thế nào để chuyển một biến chuỗi thành một hàm mong đợi một PChar?

Question

tôi có mã này:

ShellExecute(Handle, 'open', 
      'C:\Users\user\Desktop\sample\menu\WTSHELP\start.html', 
      nil, nil, sw_Show); 

Làm thế nào tôi có thể thay thế chữ trong đối số thứ ba với một biến chuỗi? Nếu tôi sử dụng mã như dưới đây nó không biên dịch.

var 
    dir: string; 

dir := 'C:\Users\user\Desktop\sample\menu\WTSHELP\start.html'; 
ShellExecute(Handle, 'open', dir, nil, nil, sw_Show); 

Answer 1

Tôi giả định rằng dir là loại string. Sau đó,

ShellExecute(Handle, 'open', PChar(dir), nil, nil, SW_SHOWNORMAL); 

sẽ hoạt động. Thật vậy, trình biên dịch cho bạn biết điều này; nó nói cái gì đó như

[DCC Error] Unit1.pas(27): E2010 Incompatible types: 'string' and 'PWideChar' 

(Cũng cần lưu ý rằng bạn thường sử dụng SW_SHOWNORMAL khi bạn gọi ShellExecute.)

Answer 2

ShellExecute là một API Windows. Vì vậy, bạn cần phải vượt qua loại PChar cho nó.

Nếu tôi giả định một cách chính xác rằng biến dir của bạn là một chuỗi, sau đó bạn có thể cast chuỗi là một PChar, và gọi ShellExecute như sau:

ShellExecute(Handle,'open', PChar(dir) ,nil,nil,sw_Show);