1.怎样使用互斥对象让程序只运行一次？
看了一篇文章，说用互斥对象对象的方法可以让程序只运行一次，但是要改动工程文件，怎么改？？
请那位高手改一下然后让我看看！多谢多谢！var
myMutex:HWND;
begin
myMutex:=CreateMutex(nil,false,'hkOneCopy');// CreateMutex建立互斥对象，并且给互斥对象起一个唯一的名字。
if WaitForSingleObject(myMutex,0)<>wait_TimeOut then//程序没有被运行过
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
End;
End;
原文给的代码,说是写在工程文件里的
可照着一写,总是说WaitForSingleObject什么的没声明,
就在uses后面加了个shellapi,还是没用,咋办?
2.怎样用Scrollbar控件
用memo的时候，可以看到右边的下拉条，当文字一版显示不了时下拉条就会出现，而且下拉条的长度还可以改变，内容越多下拉条就越短，我想用一个Scrollbar控件模拟一下这个过程，那位高手可以给指点一下？？给点源码可以吗〉？？3.怎样在TabControl控件上显示一个图像？利用OwnerDraw吗？怎么用呢？？
看了一篇文章，说用互斥对象对象的方法可以让程序只运行一次，但是要改动工程文件，怎么改？？
请那位高手改一下然后让我看看！多谢多谢！var
myMutex:HWND;
begin
myMutex:=CreateMutex(nil,false,'hkOneCopy');// CreateMutex建立互斥对象，并且给互斥对象起一个唯一的名字。
if WaitForSingleObject(myMutex,0)<>wait_TimeOut then//程序没有被运行过
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
End;
End;
原文给的代码,说是写在工程文件里的
可照着一写,总是说WaitForSingleObject什么的没声明,
就在uses后面加了个shellapi,还是没用,咋办?
2.怎样用Scrollbar控件
用memo的时候，可以看到右边的下拉条，当文字一版显示不了时下拉条就会出现，而且下拉条的长度还可以改变，内容越多下拉条就越短，我想用一个Scrollbar控件模拟一下这个过程，那位高手可以给指点一下？？给点源码可以吗〉？？3.怎样在TabControl控件上显示一个图像？利用OwnerDraw吗？怎么用呢？？
2 其实不要代码的 拖一个Scollbar 然后把写满文字的label放进去就行了（label高度超过Scrollbar 就会出现下拉条
3 用canvas画吧 我没试过
遇到贵人了啊
失敬失敬
原来要引用windows？
晕